Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Optionen-Schaltfläche in TOpenDialog

  Alt 23. Jan 2007, 22:05
Moin Moaddin,

Du hattest ja schon FOptionen.OnClick geschrieben.
OnClick ist eine Eigenschaft, wie Caption, der dann noch die entsprechende Methode zugewiesen werden muss.
OnClick ist vom Typ TNotifyEvent, also genügt es, wenn Dein OnOptionsClick (und natürlich das Feld FOptionsClick) vom Typ TNotifyEvent sind.

Jetzt musst Du Deiner Klasse nur noch eine entsprechene Methode einbauen, z.B.

Delphi-Quellcode:
private
  procedure MyOnClick(Sender: TObject);
//...
und FOptionen.OnClick zuweisen.

Soweit, wenn Du die Methode in Deiner eigenen Klasse haben willst.

Willst Du sie von Extern zuweisen, müsstest Du write FOptionClick durch eine Setter-Methode austauschen, in der dann der zugewiesene Wert an die Eigenschaft übergeben wird.

Delphi-Quellcode:
procedure TOpenOptionsDialog.SetClick(const Value: TNotifyEvent);
begin
  FButton.OnClick := Value;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat