Button erstellen und Funktion zuweisen....

[neolithos]

Delphi-Quellcode:

procedure DynClick(Self, Sender : TObject);
begin
  if Self <> nil then  // steht immer nil
     ShowMessage('Self: ' + Self.ClassName);
  ShowMessage(TButton(Sender).Caption);
end;

procedure TForm1.FormCreate(Sender: TObject);
asm
//  @Button4.OnClick := @DynClick;
//  so steht self auf Form1
// in eax steht Self
  mov edx, [eax + offset Button4] // Adresse der Instance des Schalters
  mov [edx + $124], eax // DynClick(Self ) := form1
  mov [edx + $120], offset DynClick
end;

Kann ich die $124 und $120 auch noch durch einen Symbolischen Namen ersetzen.