Jak zablokować pola typ Wstecz, Kopiuj

[Ed]

Witajcie

Mam aplikacje podobną do notatnika. i Są tam pola takie jak
KODCofnij

Powtórz

Wytnij

Kopiuj

Wklej
i jak zrobić że jak np. nie ma zaznaczonego tekstu to kopiuj jest zablokowane, nie ma nic w schowku to Wklej jest zablokowane. Nie ma co cofnac to cofnij itp... ??

[5corpio]

Hmmm coś mi ze zdarzeniami nie wychodzi ale można tak:
Jeśli te opcje cofnij itp. masz w MainMenu i powiedzmy, że masz taką strukturę:

Plik | Edycja | Opcje
Nowy Cofnij Opcja1
Otworz Kopiuj Opcja2
Cos tam Wytnij

To możesz zrobić tak w zdarzeniu Edycji wpisz:
[code=Delphi] %'zRaśĄvrjLF'Ę
k+)ŹĘ#zpąhK,vygnĘa@BsćĘkksjxr\"vŁv!Ł .=,ł:)$i'Z'ŚŹó{śr$śŁ*hŚśĄjx
Xnt(Zp*[Ą
)bŃhfI jD*[ĄćjzjCjzjEŚxg
Xnt'zą)bb{N*[ĄZ)Ł)bŃhf\"jEVzpjQzŹę*[Ąćj)b)bb{=-o+)Ź'3Ę,r0zjG^bppV6Ć&&BćBŁvWD6Ć&&DFF4eDUBĄąąŃĄ ŃŃąQ4(
ąlipBoard();

[/code]
Jeszcze poszukam i dopisze ewentualnie.

[Ed]

Dzięki. Z Wytnij i Kopiuj już se poradziłem Jeszcze tylko musze znaleźć dla Cofnij,Powtórz i Wklej.

[5corpio]

To wklej zrób jak napisałem sprawdź czy jest tekst w schowku i użyj wklej.

oblookaj to >> http://msdn.microsoft.com/library/default....e/clipboard.asp masz opisane o schowku dużo.

[Ed]

Jeszcze zanim napisałeś se poradziłem
KODif ClipBoard.AsText <> '' then Wklej1.Enabled := True else Wklej1.Enabled := False;
tak zrobiłem

p.s Dzięki, zaraz tą stronę oblookam. Jeszcze cofnij i powtórz

[LukaStrz]

KODif ClipBoard.AsText <> '' then Wklej1.Enabled := True else Wklej1.Enabled := False;
ładniej:
KODWklej1.Enabled:=(ClipBoard.AsText<>'');
Ale to juz od Ciebie zależy