Hallo zusammen,
ich habe von TForm ein Ableitung gemacht
Delphi-Quellcode:
type
TFibuWin = class(TForm)
private
tlbrFirmenauswahl: TToolBar;
FFMToolbutton: TToolbutton;
STBToolbutton: TToolbutton;
TMAToolbutton: TToolbutton;
SGSToolbutton: TToolbutton;
BFTToolbutton: TToolbutton;
...
// ----------------------------
// Wird aufgerufen, wenn auf einen der Buttons geklickt wird.
// ----------------------------
procedure TFibuWin.SetActWindowFirma(Sender: TObject);
begin
if Sender is TToolButton then begin
ActFirmenStr := TToolbutton(Sender).Caption;
end;
SetFirmaChg(true);
end;
Dann gibt es ein TfrmDebitoren = class(TFibuWin).
Wie kann ich dafür sorgen, dass Wenn ein ToolButton gedrückt wird, mein frmDebitor eine Nachricht bekommt. Im Moment behelfe ich mir mit dem Trick, dass ich das Ereignis OnMouseEnter vom frmDebitor verwende.
Anders ausgedrückt: Wie kann ich ein Ereignis erstellen OnToolButtonPress erstellen?
Zitat
Baum-Darstellung
