Ĺadny brzuch
Chcę zrobić coś takiego aby wymósić tylko możliwość wpisania tekstu do Edita a jednocześnie niedopuścić aby user w niego coś wkleił ze schowka. Prawdę mówiąc nie mam pojęcia jak się za to zabrać. Coś myślę, że trzeba by było przechwycić jakiś komunikat ale nie wiem jak się za to zabrać. Ma ktoś jakiś pomyśł?
Może zrób tak, że przy każdym onchange zapisujesz sobie do zmiennej treść Edita, a potem sprawdzasz, czy do Edita przybyło to, co znajduje się w schowku ;) Coś takiego:
uses Clipbrd var Tresc: String; procedure TForm1.Edit1Change(Sender: TObject); begin if ClipBoard.HasFormat(CF_TEXT) and (Tresc + ClipBoard.AsText = Edit1.Text) then begin Edit1.Text := Tresc; end; Tresc := Edit1.Text; end; procedure TForm1.FormCreate(Sender: TObject); begin Tresc := Edit1.Text; end;
EDIT: Wprowadzilem małe poprawki. Teraz na pewno będzie działać :D
Użytkownik Capellini edytował ten post 02 kwiecień 2007, 18:42
Może zrób tak, że przy każdym onchange zapisujesz sobie do zmiennej treść Edita, a potem sprawdzasz, czy do Edita przybyło to, co znajduje się w schowku ;) Coś takiego:
uses Clipbrd var Tresc: String; procedure TForm1.Edit1Change(Sender: TObject); begin if ClipBoard.HasFormat(CF_TEXT) and (Tresc + ClipBoard.AsText = Edit1.Text) then begin Edit1.Text := Tresc; end; Tresc := Edit1.Text; end; procedure TForm1.FormCreate(Sender: TObject); begin Tresc := Edit1.Text; end;
EDIT: Wprowadzilem małe poprawki. Teraz na pewno będzie działać :D
Dzieki po zmodyfikowaniu twego pomyslu bedzie ok
Hmmm, tak wczoraj wieczorem myślałem... I stwierdziłem, że jeśli w menu będzie do jakiejś pozycji podpisany shortcut, a jego akcją będzie nic (ale kod wygenerowany, po prostu w zdarzeniu nic nie robi), to nic nie powinno Ci się wkleić do TEdit-a. :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Może zrób tak, że przy każdym onchange zapisujesz sobie do zmiennej treść Edita, a potem sprawdzasz, czy do Edita przybyło to, co znajduje się w schowku ;) Coś takiego:
uses Clipbrd var Tresc: String; procedure TForm1.Edit1Change(Sender: TObject); begin if ClipBoard.HasFormat(CF_TEXT) and (Tresc + ClipBoard.AsText = Edit1.Text) then begin Edit1.Text := Tresc; end; Tresc := Edit1.Text; end; procedure TForm1.FormCreate(Sender: TObject); begin Tresc := Edit1.Text; end;
EDIT: Wprowadzilem małe poprawki. Teraz na pewno będzie działać :D
Użytkownik Capellini edytował ten post 02 kwiecień 2007, 18:42
Może zrób tak, że przy każdym onchange zapisujesz sobie do zmiennej treść Edita, a potem sprawdzasz, czy do Edita przybyło to, co znajduje się w schowku ;) Coś takiego:
uses Clipbrd var Tresc: String; procedure TForm1.Edit1Change(Sender: TObject); begin if ClipBoard.HasFormat(CF_TEXT) and (Tresc + ClipBoard.AsText = Edit1.Text) then begin Edit1.Text := Tresc; end; Tresc := Edit1.Text; end; procedure TForm1.FormCreate(Sender: TObject); begin Tresc := Edit1.Text; end;
EDIT: Wprowadzilem małe poprawki. Teraz na pewno będzie działać :D
Dzieki po zmodyfikowaniu twego pomyslu bedzie ok
Hmmm, tak wczoraj wieczorem myślałem... I stwierdziłem, że jeśli w menu będzie do jakiejś pozycji podpisany shortcut, a jego akcją będzie nic (ale kod wygenerowany, po prostu w zdarzeniu nic nie robi), to nic nie powinno Ci się wkleić do TEdit-a. :)