Code: Alles auswählen
Button1.OnClick:= @Test;
procedure Test();
begin
ShowMessage('Test');
end;
Was heisst "etwa so"? Das geht nicht.Theozh hat geschrieben: Wenn ich das "fix verdrahte", sieht das etwa so aus:
Code: Alles auswählen
procedure TForm1.Test(Sender: TObject);
begin
ShowMessage('Test');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick:=@Test;
end;
Code: Alles auswählen
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateButton(Form1); // eine Procedure z.B. aus Unit2 s.u.
Button1.OnClick:=@Test; // ob hier Test1 oder Test2 ausgeführt wird, will ich auch aus Unit2 definieren
end;
procedure TForm1.Test1(Sender: TObject);
begin
ShowMessage('Test1');
end;
procedure TForm1.Test2(Sender: TObject);
begin
ShowMessage('Test2');
end; Code: Alles auswählen
unit Unit2;
...
procedure CreateButton(MyForm: TForm);
begin
NewButton:= TButton.Create(MyForm);
with NewButton do
begin
Name:= 'Knopf1';
Parent:= MyForm;
OnClick:= ??? // Wie kann ich hier Test1 oder Test2 definieren?
end;
end;Code: Alles auswählen
procedure TForm1.Test1(Sender: TObject);
Code: Alles auswählen
type
TButtonClickEvent = procedure(Sender: TObject) of object;
var
SomeClick: TButtonClickEvent;
Code: Alles auswählen
type
TMyOwnClass = class
procedure Test1(Sender: TObject);
end;
Dann mach eine KlasseTheozh hat geschrieben:hmm, wie könnte ich es dann machen?
Etwas vereinfacht: stell Dir z.B. Taschenrechnertasten oder eine Tastatur vor. Diese möchte ich auf verschiedenen Forms per Programm und nicht von Hand erzeugen. Letzteres wäre bei Änderungen von Position, Anordnung, Schriftgröße, usw. sehr aufwändig.
Was gibt es Deiner Meinung nach für andere Möglichkeiten?
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TTaschenRechnerTastatur }
TTaschenRechnerTastatur=class(TCustomControl)
private
procedure BtnClick(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
{ TForm1 }
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ private declarations }
Tast:TTaschenRechnerTastatur;
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
Tast:=TTaschenRechnerTastatur.Create(self);
Tast.Parent:=Self;
Tast.Align:=alClient;
end;
{ TTaschenRechnerTastatur }
procedure TTaschenRechnerTastatur.BtnClick(Sender: TObject);
begin
ShowMessage((Sender as TButton).Caption);
end;
constructor TTaschenRechnerTastatur.Create(AOwner: TComponent);
var i:integer;
Btn:TButton;
begin
inherited;
for i:=0 to 9 do
begin
Btn:=TButton.Create(self);
Btn.Parent:=self;
Btn.Width:=Btn.Height;
Btn.Left:=i*Btn.Width;
Btn.Caption:=Inttostr(i);
Btn.OnClick:=@BtnClick;
end;
end;
destructor TTaschenRechnerTastatur.Destroy;
begin
inherited Destroy;
end;
end.
Code: Alles auswählen
if (Sender as TButton).Caption = '5' then ???.Destroy;Code: Alles auswählen
if (Sender as TButton).Caption = '7' then ???.Checked:= true;
Verein
Links
Suche