[Andorra 2d] Menü(bzw was anderes als das level) zeichnen

[igel457]

Hallo,

zunächst musst du eine Prozedur innerhalb eines Objektes deklarieren, deren Parameter denen des Events entsprechen. Dann kannst du diese Prozedur einfach dem Event zuweisen.

Beispiel:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    [...]
  private
    procedure AdButtonClick(Sender:TObject);
  public
    [...]
end;

[...]

procedure TForm1.AdButtonClick(Sender:TObject);
begin
  TAdButton(AdGUI.FindComponent('Button1')).Caption := 'Du hast mich geklickt!';
end;

procedure TForm1.FormCreate(Sender:TObject);
begin
  //Andorra 2D initialisieren
  [...]
  //Gui Laden
  [...]

  //Ereignisse zuweisen
  TAdButton(AdGUI.FindComponent('Button1')).OnClick := AdButtonClick;
end;

Hoffe das hilft dir, wenn du noch Fragen hast dann kannst du mich ja einfach nochmal anschreiben,
Andreas

PS: Ich glaube, ich muss doch mal ein Tutorial schreiben...