alle proceduren mit einem click ausführen?

[thehed]

Hallo
Zuerst:Seit nicht zu hart zu mir ich bin neu :D

Also ich habe ein Prog. geschrieben mit dem man mit verschiedenen
Buttons verschiedene Dinge machen kann (Daten eingeben,Textfile
generieren,Datei danach kopieren u.s.w).Nun möchte ich noch einen
Button für Leute die die vorgegebenen Daten nicht ändern wollen
dazu müsste ich einige dieser proceduren tform.irgendwas(click to....
mit diesem Neuen Button aufrufen aber ich schafs einfach nicht
wie geht sowas?

[Daniel B]

Hallo und herzlich Willkommen im Forum!

Du kannst einfach noch einen Button nehmen. Der heisst meintwegen Button5.
Ansonsten hast Du noch andere Prozeduren von z.B. Button 1-4.

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObjekt);
begin
  Button1Click(Sender);
  Button2Click(Sender);
  Button3Click(Sender);
  Button4Click(Sender);
end;

So kannst Du einfach da alle Prozeduren auflisten die Du gerne möchtest. Die werden dann alle der Reihe nach abgearbeitet.

Grüsse, Daniel :hi:

[Haegar]

hi,
wenn du folgendes hast:

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender:TObject);
begin
 //mach was
end;

procedure TForm1.Button2.Click(Sender:TObject);
begin
 //mach was
end;

procedure TForm1.Button3.Click(Sender:TObject);
begin
 //mach was
end;

dann brauchst du nur noch Button1.Click oder welche prozedur es eben sein soll aufrufen.

Delphi-Quellcode:

TForm1.Button4.Click(Sender:TObject);
begin
 Button1.Click;
 Button2.Click;
 Button3.Click;
end;

und es wird in der reihenfolge abgearbeitet

gruss haegar

[Haegar]

lol warst schneller :mrgreen:

[Daniel B]

Hallo Haegar,

wie kommst Du denn bitte auf die ganzen Punkte zwischen dem Button-Namen und dem Click? :shock:

Grüsse, Daniel :hi:

[Haegar]

lol stümmt, is nicht wirklich ein prozeduraufruf, aber erfüllt den zweck ..... sry :oops:

edit: hab mich immer gewundert, warum ich keine angbe in klammer brauch lol :chat:
hab grad mal deine signatur angeschaut, haste das von KarlValentin (diese Iso....) kenn ich von einer seiner schaltplatten

gruss haegar

[Daniel B]

Eigentlich meinte ich das:

Delphi-Quellcode:

procedure TForm1.Button1.Click(Sender:TObject);
procedure TForm1.Button2.Click(Sender:TObject);
procedure TForm1.Button3.Click(Sender:TObject);

Das lässt sich ja nicht einmal komplizieren. ;)
Ok, ich hab auch einen Buchstaben falsch, aber absichtlich, aber was Du da gemacht hast war keine Absicht mehr. ;)

Grüsse, Daniel :hi:

[Daniel B]

Zitat:

Zitat von Haegar

hab grad mal deine signatur angeschaut, haste das von KarlValentin (diese Iso....) kenn ich von einer seiner schaltplatten

Diese Platte sagt mir gar nichts! :mrgreen: Ich habe es nur mal in einer NewsGroup gesehen. ;)

Grüsse, Daniel :hi:

[Haegar]

ne ich hab ne ursht alte Karl Valentin-Platte zu hause, da geht er zum doktor, und will irgendwas haben, und am ende kommt eben raus, das es diese arznei sei die er meinte ;))
konnte das fast mal aussprechen (ich als chemie-Leistungskursler :mrgreen: )

gruss haegar

[thehed]

Danke Leute
Ist ja ne riesen resonanz hier
SUPER