Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by FAlter,
5. Okt 2004
Du hast gesagt, dass du OnEnter UND OnExit nimmst, ich denke, das OnExit ist nicht nötig.
Außerdem, aber man kann sich ja irren, dahcte ich, du hättest unzählige procedures verwendet für dein OnEnter, bei mir reicht eine.
Ansonsten weiß ich nicht, wozu man TApplicationEvents braucht, Das gibt es doch alles schon bei TApplication, und davon hat man sowieso schon eine Instanz. Noch eine von...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by FAlter,
5. Okt 2004
So, jetzt ist es getestet!!!
procedure TForm1.EnterEvent(Sender: TObject);
begin
if Sender is TControl then
StatusBar.Panels.Text := TControl(Sender).Hint
else
StatusBar.Panels.Text := '';
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by FAlter,
5. Okt 2004
Mach es doch einfach über OnEnter:
{ Pseudocode }
procedure TMainForm.EnterEvent(Sender: TObject);
begin
//Alle Komponenten haben das hier als OnEnter
if Sender is TControl {oder ab wo es Hint gibt} then
StatusBar.Panels.Text := TControl(Sender).Hint
else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by FAlter,
5. Okt 2004
Ich würde mal sagen, das ist in der Delphi-Hilfe ganz genau erklärt.
TApplication.OnHint und dann das Beispiel dazu.