Zitat von
Ultimator:
Zitat von
Nils_13:
Die Beschimpfung ignoriere ich jetzt mal einfach. Danke, dass du mir eine lustige Minute gegönnt hast.
Hm. Wenn du das, was du als Beschimpfung empfindest, ignorierst, wieso sollte dann mein ansonsten sachliches Posting lustig sein?
Ich habe Delphi 7 Personal mit keinen zusätzlich installierten Komponenten, also müsste das bei dir auch vorhanden sein.
//edit: Oha, da hat jemand oben editiert.
Ich benutze weil alle anderen Delphi-Versionen zu langsam sind auf einfach Delphi 7 Personal. Ist aber irgendwie nicht das selbe
Zitat von
jim_raynor:
Zitat von
Nils_13:
Die Beschimpfung ignoriere ich jetzt mal einfach.
Das ist ein Beispiel mit dem FindDialog. Aber du kannst sehr wohl auch FindText ohne FindDialog einsetzen. Einfach statt FindDialog1.FindText deinen eigenen Text nehmen ...
Also in etwa so ?
Delphi-Quellcode:
if FindDialog1.FindText = 'START' then
begin
with Memo1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
end;
oder so ?
Delphi-Quellcode:
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
with Memo1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
end;