Buttons abfragen

[Schnurballo]

hallo,
bin noch ein ziemlicher anfänger was delphi angeht muss aber für informatik was programmieren.
ich möchte das wenn der n´benutzer auf einen button drückt in einer procedure in einem anderen knopf erkannt wird das der knopf gedrückt wurde.
hoffe jemand kann mir helfen.

[Nicodius]

du rufst einfach beim draufdrücken die andere procedure auf? :lol:

[Interceptor]

Angenommen du hast 2 buttons auf deiner Form.

Wenn du jetzt beim Klick auf Button1 die Funktion von Button2 aufrufen möchtest, tust du das folgendermaßen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  button2.Click;
end;

Jetzt wird die Procedure aufgerufen, die du unter Button2 festgelegt hast.

MFG, Interceptor

[S2B]

Oder du weist dem 2. Button die procedure des ersten Buttons im OI zu! :wink:

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Neuen Beitrag zur Code-Library hinzufügen" nach "VCL-Komponenten und Controls" verschoben.

[Schnurballo]

danke schonmal
trotzdem noch ne frage ich habe 4 buttons und einen start button wenn ich start drücke leuchtet eine farbe auf(beispiel) und jetzt soll man den knopf drücken der der farbe entspricht, wenn man den richtigen drückt soll die procedure weiterlaufen sonst nicht.
gruß schnurballo

[Nicodius]

mach das mit einer boolischen variable!

[Schnurballo]

Zitat:

Zitat von Nicodius

mach das mit einer boolischen variable!

was ist denn das? hab doch gesagt bin voll der anfänger.

[Ultimator]

Eine boolesche Variable kann nur true oder false (wahr oder falsch :wink: ) sein. Du köntest es also so machen:

Delphi-Quellcode:

 if Farbe=clgelb then booleschevariable:=true
else booleschevariable:=false;

OK, sinnloses Beispiel, aber zur Verdeutlichung müsste es doch beitragen :lol:

[Nicodius]

aso

das ist ein typ

Delphi-Quellcode:

var  wert : boolean;

//ins form doppelklicken 

wert := false

// in die einzelnen Onclicks - 
// hier bs für den Gelb button
  If Label1.caption = 'gelb' then
  else
    Wert := false

  If Wert = false then Showmessage('Verloren');
end;