Einen Button Click Event von anderem Formular aufrufen?

[Satyr]

@Luckie
Ok, das ist ne Idee.
Probiere ich morgen als erstes, danke .
Gibt es trotzdem nen Grund warum Delphi damit Probleme hat? Will es wenigstens nachvollziehen können...

[Luckie]

Formular2:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage('Test');
end;

Formular1:

Delphi-Quellcode:

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

Funktioniert.

[Bummi]

Kann es sein dass hinter der Variable Form1 gar nicht das Form liegt welches Du siehst ...

[himitsu]

Zitat:

Form2.Button1Click(nil);

Wenn Form2 (sehr schöner Name) nicht existiert (keine Instanz davon), dann kann man diese Funktion nicht aufrufen.

Und welche Daten sollen denn verarbeitet werden, also wo kommen die her?

@Bummi: Ja ja, immer diese bösen globalen Variablen.

[Satyr]

Ich hab den Fehler gefunden und weiß nicht was mich da am meisten veralbert: Delphi, Windows, meine Festplatte oder ich selbst.

Ich erkläre mal ein wenig mehr:
Der Button auf Form1 um den es geht, ändert Dateien. Er öffnet sie, schreibt was um, schließt und speichert. Funktioniert alles wie es soll.
Dann kam Form2 dazu. Dort wird nach mehreren Kriterien ein Verzeichnis gewählt, in das eben genannte Dateien kopiert werden sollen, vor dem bearbeiten DIESER Dateien.
Das kopieren funktioniert, das übergeben vom neuen Bearbeitungspfad auch. An der stelle dachte ich mir, ich mache das mit form1.button1.click; und fertig. Denn wenn ich per Hand auf diesen Button klicke, passiert genau das was passieren soll. Per Aufruf aber eben nicht.
Nun weiß ich auch wieso:
Das kopieren ist zu langsam.
Wenn der Aufruf von Button1 getätigt wird, sind die Dateien die geöffnet werden sollen noch nicht 100% fertig kopiert. Keine Fehlermeldung bekam ich weil ich die Dateioperationen schon mit if FileExists "abgesichert" hatte. Das erklärt auch warum es mit Händischem Klicken funktionierte. Es dauert schlicht einige Millisek. länger, bis ich geklickt habe.

Wenn ich if FileExists weg lasse, bekomme ich die Fehlermeldung "File not found". Wenn ich einen Delay von min. 250 millisek. einbaue, funktioniert alles. Sind es weniger als die 250millisek. dann nicht.
Für mich kein Problem das so zu lösen... aber ist das dann nicht arg abhängig von der Geschwindigkeit der Platte?

[himitsu]

Zitat von Satyr:

aber ist das dann nicht arg abhängig von der Geschwindigkeit der Platte?

Frag uns doch nicht, denn wir wissen ja nicht, was DU mit den Dateien machst. (hat uns ja keiner verraten)

[Satyr]

Nichts aufwändiges.

Sind HTML Dateien die ich in ein Memo lade (weil ich will das man sieht welche Datei grade bearbeitet wird), einige Strings ersetze und wieder speichere. Mehr nicht.