Thema: Memo

Einzelnen Beitrag anzeigen

Alallart

Registriert seit: 8. Dez 2015
155 Beiträge
 
#18

AW: Memo

  Alt 25. Apr 2018, 16:10
Betrifft Memo: Wie kann ich die Farbe eines Textes beibehalten, auch wenn ENABLED = FALSE gesetzt wurde.
Ich habe gerade vor zwei Minuten eine Idee gehabt und hab sie ausprobiert. Es funktioniert, auch ohne Panel.

Setz einfach in OnEnter-Ereignis dein Memo bei Enabled auf False, und bei OnExit-Ereignis Enabled auf True. Dadurch wird das Memo abgeschaltet wenn es den Fokus erhält, lehnt es ab, und schaltet sich wieder ein wenn es den Fokus verloren hat. Im Grunde merkt man die Aktion noch nicht mal. Ein Zirkelschluss ergibt sich daraus auch nicht, habe es geprüft. Und die Scrollbalken funktionieren weiter.
Delphi-Quellcode:
procedure TForm1.Memo1Enter(Sender: TObject);
begin
  Memo1.Enabled := False;
end;

procedure TForm1.Memo1Exit(Sender: TObject);
begin
  Memo1.Enabled := True;
end;
  Mit Zitat antworten Zitat