sæt OnClick event runtime

Du definerer dig en procedure i din form-klasse, der har samme signatur som den event-type, det drejer sig om, fx:
 
  TForm1 = class(TForm)
  private
    procedure BtnClick(Sender: TObject);

Et sted i koden sætter du så bare dine knappers OnClick til at pege på denne metode:

  button1.OnClick:= BtnClick;

I BtnClick kan du så - via Sender - afgøre hvilken knap, der er trykket på.

/Torben.

Torben> Giver dit eks. incompatible typer når der compileres.

Der sku\' ha\' stået:

Torben> Dit eks. giver incompatible typer når der compileres.

Det her virker :

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure ButtonClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
begin
  ShowMessage(\'Hello World\');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := ButtonClick;
end;

Og er testet.

Jens B

Jens>> Jep det virker, nu skal der bare findes ud af hvor clickket kom fra

Og hvad er lige den store forskel??? (bortset fra navnet på metoden, hvilket er ligemeget...).

morten_s> du må have lavet en fejl, da du tastede det ind - det virker altså! Jeg skrev dog ikke hele koden....

Jeg har lige copy\'et den kode jeg angav ind i et Delphi-program - og det virker!! Det er meget nok, at man får afvist et svar, der rent faktisk virker.

/Torben.

som torben så ganske rigtigt siger så ligger der en Pointer til kanppen CLicket kommer fra i sender.

Jens B

rolig rolig, i kan jo dele pointene hvis du giver et svar

Jeg er meget rolig - måske skulle du også være rolig, og vente med at afvise et svar til du er sikker på, det ikke er dig selv, der har lavet en fejl. Det er vel ikke meningen, at man skal svare med et komplet compilerbart og fuldt funktionelt program?

/Torben.

Jeg vrisser ikke jeg synes bare spørgsmålet var besvarer :-)

Anyway Sæt tre kanpper på den form Og skriv det følgende :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := ButtonClick;
  Button2.OnClick := ButtonClick;
  Button3.OnClick := ButtonClick;
end;


procedure TForm1.ButtonClick(Sender: TObject);
begin
  If not (Sender is TButton) then
    exit;
  //Sikkerheds tjek på ikke en eller anden sjovert har stoppet
  //noget andet end en knap ind i Sender. En Hest måske ?
  if TButton(Sender) = Button1 then
  begin
    ShowMessage(\'Button1\');
  end
  else if TButton(Sender) = Button2 then
  begin
    ShowMessage(\'Button2\');
  end
  else if TButton(Sender) = Button3 then
  begin
    ShowMessage(\'Button3\');
  end;
end;


Giv Pointsne til Motten_s i det jeg etenlig blot har uddybet han svar :-)

Jens B