Delphi-Quellcode:
{...}
TYPE
TMyButton = Class(TButton)
PROCEDURE BtnClick(Sender: TObject); // TNotifyEvent
END;
{...}
implementation
procedure TForm1.Button1Click(Sender: TObject);
var
btn : TMyButton;
begin
btn := TMyButton.Create(Self);
btn.Parent := Self;
btn.Left := 10; // Beispiel-
btn.Top := 10; // Werte...
btn.OnClick := btn.BtnClick; // Ereignisbehandlung zuweisen!
end;
procedure TMyButton.BtnClick(Sender: TObject); // Ereignisbehandlung
var
form : TForm;
begin
form := TForm.Create(Application);
form.ShowModal;
form.Free;
end;
Jetzt wird halt durch den Button-Klick ein neuer Button erzeugt (zur Laufzeit, wie gewünscht -g-), dessen OnClick-Behandlung wiederum erzeugt ein modales Fenster
edit: achja, am ende noch irgendwo btn freigeben (free)..
Gruß
Stephan
keine garantie für gar nix
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...