Button erstellen und Funktion zuweisen....

[Stevie]

Also, im Moment geht's mir noch ein bisschen
Also darf ich in solchen "selbstgeschriebenen" Ereignisroutinen kein Self verwenden, ja?

[Motzi]

Wenn es eine Methode ist natürlich schon, wenn es eine Prozedur ist nein (es sein denn du manipulierst zusätzlich auch noch die Objekt-Referenz)...

[Stevie]

Die Objekt-Referenz manipulieren? So, wie ich oben geschrieben habe(Self := Sender), oder anders?

[Motzi]

Anders... du musst die Objekt-Referenz des Methodenzeigers manipulieren...

[Stevie]

WIE???

[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.

[Stevie]

Urgs, Assembler-Code!!!
Kann eigentlich Sender auch was anderes sein, außer das Objekt selber, vorausgesetzt die Methode wird ganz "normal" durch einen Klick oder ein anderes Ereignis von seitens des Anwenders ausgelöst?

[Motzi]

Dein Code ist ein bisschen unpraktisch, da er absolute Offsets verwendet ($120 / $124)... Delphi kann natürlich die absoluten Offsets der Objekt-Felder berechnen, aber ich bezweifle, dass du mir so einfach sagen kannst an welchem Offset das OnMouseDown-Ereignis liegt...

Ich bevorzuge daher etwas in dieser Richtung:

Delphi-Quellcode:

type
  PMethodPointer = ^TMethodPointer;
  TMethodPointer = packed record
    pMethod: Pointer;
    pObject: TObject;
  end;


procedure ProcFormClick(Self: TObject; Sender: TObject);
begin
  ShowMessage('Procedure');
  TForm(Self).OnClick := TForm1(Self).FormClick;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
  ShowMessage('Method');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  aMP: TMethodPointer;
begin
  aMP.pMethod := @ProcFormClick;
  aMP.pObject := Self;
  OnClick := TNotifyEvent(aMP);
end;

Ein Methoden-Zeiger hat immer die Größe 8, daher ist der Record MethodPointer zu jedem Methoden-Zeiger kompatibel. Der strenge Compiler lässt eine einfache Zuweisung von TMethodPointer an zB TNotifyEvent nicht zu, daher muss der Record immer zuerst in den entsprechenden Methoden-Zeiger gecastet werden.

[neolithos]

Ok!
und notiert.