funktionen von buttons zusammenlegen

[trashar]

Hallo

ich habe 3 buttons

"Hinzufügen" "Hinzufügen & Schliessen" "Schliessen"

nun hab ich unter hinzufügen eine Prozedur
und unter schliessen eine..

nun möcht ich wenn ich auf "Hinzufügen & Schliessen" klicke, das erst die "hinzufügen" prozedur ausgeführt wird, und dann die von schliessen.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
Form4.Close;
end;

zb so
kommt noch was zu
meine frage nun. geht das und wenn ja wie?
oder muss ich das in funktionen packen??

mfg

[Illuminator-23-5]

Delphi-Quellcode:

procedure TForm1.ButtonHinzuSchliessenClick(Sender: TObject);
begin
  ButtonHinzufuegenClick(Sender);
  ButtonSchliessenClick(Sender);
end;

[axelf98]

So gehts auch:

Delphi-Quellcode:

procedure TForm1.ButtonHinzuSchliessenClick(Sender: TObject);
begin
  ButtonHinzufuegen.Onclick(self);
  ButtonSchliessen.Onclick(self);
end;

[trashar]

uh ok thx geht *klatsch*

sry bin noch am lernen
andere frage

habe 2 radio buttons

Radiobutton1 und radiobutton2
nun will ich wissen welcher ausgewählt ist.

habs mit ner if anweisung versucht, aber er nimmt immer den ersten button

Delphi-Quellcode:

       if RadioButton1.Checked <> TRUE then typ := RadioButton1.Caption;
       if RadioButton2.Checked <> TRUE then typ := RadioButton2.Caption;

kann mir da wer helfen

mfg

[trashar]

Zitat von axelf98:

So gehts auch:

Delphi-Quellcode:

procedure TForm1.ButtonHinzuSchliessenClick(Sender: TObject);
begin
  ButtonHinzufuegen.Onclick(self);
  ButtonSchliessen.Onclick(self);
end;

ist eins vorteil bzw nachteilhaft oder is es hose wie jacke?

[axelf98]

Hier muss ein Ereignis ausgewertet werden und zwar das Klicken der Radio-Buttons.. Deshalb müssen Diese Befehle unter RadiobuttonXclick eingefügt werden:

Delphi-Quellcode:

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if radioButton1.checked then typ := RadioButton1.Caption;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radioButton2.checked then typ := RadioButton2.Caption;
end;

[Illuminator-23-5]

oder du legst alles in eine RadioGroup rein und machst es so:
typ := RadioGroup1.Items[RadioGroup1.ItemIdex];

[Luckie]

Argh: neue Frage, neuer Thread.

[trashar]

Zitat von Illuminator-23-5:

oder du legst alles in eine RadioGroup rein und machst es so:
typ := RadioGroup1.Items[RadioGroup1.ItemIdex];

Muss das nicht ItemIndex lauten??

MfG
aber axels lösung geht soweit

@ lucky
next time

[Illuminator-23-5]

jup, soll itemindex heißen! schreibfehler