Einzelnen Beitrag anzeigen

Benutzerbild von APP
APP

Registriert seit: 24. Feb 2003
Ort: Graz (A)
705 Beiträge
 
Delphi 7 Enterprise
 
#3
  Alt 28. Feb 2003, 16:22
Hallo,

Mal so schnell zusammengeschnippelt:
Du benötigst eine Form als Vorlage und ein Hauptformular, von dort aus erzeugst Du dann Instanzen deiner Vorlage.

Delphi-Quellcode:
INTERFACE

USES
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   FVorlage; // beinhaltet Form-Klasse "TaFVorlage" die Du mit Delphi erstellt hast

VAR
   aForm : TaFVorlage; // Formvorlage


 PROCEDURE TFMain.ShowErrorDLG; // Dialog zeigen
BEGIN
   aForm := TaFVorlage.Create(Application);
   WITH aForm DO
      BEGIN
         TRY
            aSaveDialog := TSaveDialog.Create(aForm);
            Caption := 'SuperDuper'
            Showmodal;
         FINALLY
            aSaveDialog.Free;
            Free;
         END;
      END;

Ups, Sakura war schneller, aber jetzt ists schon passiert!
Armin P. Pressler
  Mit Zitat antworten Zitat