AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Memo mit Inaktiv-Text

Ein Thema von Dennis07 · begonnen am 19. Apr 2013 · letzter Beitrag vom 19. Apr 2013
 
Dennis07

Registriert seit: 19. Sep 2011
Ort: Deutschland
491 Beiträge
 
Delphi 11 Alexandria
 
#1

Memo mit Inaktiv-Text

  Alt 19. Apr 2013, 15:52
Hallo,
ich bräuchte mal wieder eure Hilfe, wäre echt Klasse wenn ihr mir diesmal wieder bei einem Problem helfen könntet.

Also: Ich habe in einem Fenster eine TMemo-Box.
In diese sollen Chatnachrichten eingegeben werden. Wenn die TMemo nicht aktiv ist (also keinen Fokus hat), dann soll dort ein kursiver Standarttext in grau sichtbar sein. Sobald die Memo wieder aktiv ist, soll dieser entfernt werden und die Schrift wieder normal sein.

Folgendes habe ich deshalb benutzt:

Ich habe das ganze über die globale Bool-Variable EmptyEditField gemacht.
Delphi-Quellcode:
  public
    EmptyEditField: Boolean; //Eingabefeld leer?
Diese wird beim Programmstart auf True gesetzt.
Delphi-Quellcode:
procedure TfmChat.FormCreate(Sender: TObject);
begin
  EmptyEditField := True;
  edChat.SetFocus;
Wenn das Memo verlassen wird ,die Variable auf False ist, das Memo leer ist und das Memo nicht aktiv ist, werden die Änderungen vorgenommen.
Wenn das Memo aktiviert wird (den Fokus erhält), wenn die Variable auf True ist und wenn das Memo aktiv ist, werden die Änderungen Rückgängig gemacht.
Delphi-Quellcode:
procedure TfmChat.edChatExit(Sender: TObject);
begin
  if (Length(edChat.Text) < 1) and (EmptyEditField = False) and (fmChat.ActiveControl <> edChat) then
  begin
    edChat.Font.Style := [fsItalic];
    edChat.Font.Color := clGray;
    edChat.Text := 'Nachrichtentext hier eingeben';
    EmptyEditField := True;
  end;
end;

procedure TfmChat.edChatEnter(Sender: TObject);
begin
  edChat.Font.Style := [];
  edChat.Font.Color := fmFontColor.cbFont.Selected;
  edChat.Clear;
  EmptyEditField := False;
end;
So weit so gut, nur funktioniert das ganze (leider) nur beim zweiten Verlassen des Memos. Beim ersten Verlassen bleibt das Memo leer und es erscheint kein "Standarttext", auch wenn das Memo nicht mehr aktiv ist.
Wenn ich beim OnExit die letzt Bedingung mit dem ActiveControl weglasse, dann erscheint die Änderung zwar schon beim ersten Verlassen, allerdings ist dieser dann auch beim aktivierten Memo zu Anfangs sichtbar, und das soll ja auch nicht sein.

Wäre echt super, wenn ihr mir helfen könntet.
Danke; Dennis
Dennis
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz