Button click anfänger Problem

[SaFu]

Hi steh gerade voll auf dem schlauch schäme mich jetzt schon für die Antworten die kommen werden

Delphi-Quellcode:

procedure TForm1.zeigex;
begin
 if SpeedButton1.Click then
 begin
  zahl[1]:= 3;
  Label4.Caption:= inttostr(zahl[3]);
  end;
end;

ist glaube ich erklärung genug

[freak4fun]

Zitat:

Zitat von fuknersascha

ist glaube ich erklärung genug

Ich glaube nicht ... :stupid:

MfG
freak

[Tormentor32]

Wie hast du zahl deklariert? Ist Zahl ein string? Ist Zahl ein Array? Wo ist das Problem?

[Muetze1]

Objektinspektor -> SpeedButton1 -> OnClick -> Doppelklick. IN der erstellten Methode den Code von deinem o.g. Code einfügen. Die If Abfrage kann raus.

Delphi arbeitet in der Oberfläche hauptsächlich ereignisgesteuert. Du musst in so fern auf die Ereignisse reagieren (hier der Click) und nicht "warten bis was passiert"...

[SaFu]

Na wenn ich mein speedButton drucke soll er das machen aber in meiner procedur und soll den wert an den Speedbutton zurück geben

[SaFu]

Will das hier machen mit einer methode zeige(x)

[SaFu]

Soory das hier

[freak4fun]

Du könntest jedem Button dem Tag die Nr. zuweisen und dann einen Eventhandler für alle ButtonClicks machen. In dem liest du dann den Tag aus.

Delphi-Quellcode:

procedure TForm1.MyEventHandler(Sender: TObject);
begin
  Label4.Caption := IntToStr((Sender as TButton).Tag);
end;

...
Button1.Click := MyEventHandler;

MfG
freak