Das einfachste ist, wenn Du in Deinem Form eine
property deklarierst.
Delphi-Quellcode:
type TfFlappErrorDlg = class....
...
public
property FlappError: TFlappError read FFlappError write FlappError;
...
end;
Jetzt kannst Du folgendes schreiben
Code:
PROCEDURE TFlappError.ShowErrorDLG(sShort, sLong: STRING); // Dialog zeigen
BEGIN
WITH fFlappErrorDlg DO
BEGIN
TRY
[color=#f60000]FlappError := Self;[/color]
...
re_simple.Text := sShort; // RichEdit auf Formular
re_detail.Text := sLong; // RichEdit auf Formular
Caption := 'ERROR in ' + sFILENAME;
Showmodal;
...
FINALLY
...
END;
END;
END;
Anschliessend kannst Du auf die Eigenschaften der Komponente innerhalb Deines Dialoges ganz normal zugreifen. Wichtig: die
Unit für die Komponente muss in der
Unit des DialogFensters in der oberen uses-Klausel stehen.
...
...
P.S.
Zitat:
Ups, gleich mein erstes Posting total verhaut..
So schlimm ist es ja auch nicht
