Delphi-Quellcode:
procedure TFHTML.FormShow(Sender: TObject);
begin
if TSpeedButton(Sender).
Name = '
BHTML'
then
Label1.Caption := '
HTML bearbeiten';
end;
Das ist eigentlich der ganze Code...
Der Speedbutton 'BHTML' öffnet das Form über
FHTML.ShowModal;
Zitat von
Die Muhkuh:
Ansonsten über die Tag-Eigenschaft.
Die sagt mir leider nicht viel. Wie würde das in etwa aussehen?
Zitat von
Bernhard Geyer:
Jedem Speedbutton kannst du doch ein OnClick-Ereignis zuordnen? Wo liegt das Problem?
Ansonsten:
Delphi-Quellcode:
if Sender = Speedbuttonxyz then
...
das OnClick vom Speedbutton öffnet das Form.