Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#12

Re: [Andorra 2d] Menü(bzw was anderes als das level) zeichne

  Alt 10. Nov 2007, 20:07
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...
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat