Ed Napisano Październik 30, 2005 Zgłoś Share Napisano Październik 30, 2005 WitajcieMam aplikacje podobną do notatnika. i Są tam pola takie jakKODCofnijPowtórzWytnijKopiujWkleji 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... ?? Link do komentarza Udostępnij na innych stronach More sharing options...
5corpio Napisano Październik 30, 2005 Zgłoś Share Napisano Październik 30, 2005 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 | OpcjeNowy Cofnij Opcja1Otworz Kopiuj Opcja2Cos tam WytnijTo 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. Ot taka mini-strona moja po godzinach http://www.wnetrzekuchni.pl Link do komentarza Udostępnij na innych stronach More sharing options...
Ed Napisano Październik 30, 2005 Autor Zgłoś Share Napisano Październik 30, 2005 Dzięki. Z Wytnij i Kopiuj już se poradziłem Jeszcze tylko musze znaleźć dla Cofnij,Powtórz i Wklej. Link do komentarza Udostępnij na innych stronach More sharing options...
5corpio Napisano Październik 30, 2005 Zgłoś Share Napisano Październik 30, 2005 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. Ot taka mini-strona moja po godzinach http://www.wnetrzekuchni.pl Link do komentarza Udostępnij na innych stronach More sharing options...
Ed Napisano Październik 30, 2005 Autor Zgłoś Share Napisano Październik 30, 2005 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 Link do komentarza Udostępnij na innych stronach More sharing options...
LukaStrz Napisano Październik 31, 2005 Zgłoś Share Napisano Październik 31, 2005 KODif ClipBoard.AsText <> '' then Wklej1.Enabled := True else Wklej1.Enabled := False;ładniej:KODWklej1.Enabled:=(ClipBoard.AsText<>'');Ale to juz od Ciebie zależy Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.