DGL • Thema anzeigen - formular als client eines anderen formulares erzeugen

formular als client eines anderen formulares erzeugen

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Lord of the Universe

Betreff des Beitrags: formular als client eines anderen formulares erzeugen

Verfasst: Sa Aug 16, 2008 02:16

DGL Member

Registriert: Sa Jan 13, 2007 18:39
Beiträge: 15

hallo

ich habe ein buch, in dem folgendes beispiel aufgeführt wird:

1.

Code:

procedure TForm1.Button1Click(Sender: TObject); //Form2.Show
begin
  if Form2=nil then Form2:=TForm.Create(Application);
  Form2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject); //Form2.Release
begin
  if Form2<>nil then begin
    Form2.Release;
    Form2:=nil;
end;

Code:

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do begin
    Style:=Style or WS_CHILD;
    WndParent:=Application.MainForm.Handle;
  end;
end;

Code:

private
  procedure WMEraseBkGnd(var Msg: TMessage); message WM_ERASEBKGND;
..
 
procedure TForm2.WMEraseBkGnd;
var rec: TRect;
newBr: THandle;
Image: TBitmap;
begin
  rec.Left:=0;
  rec.top:=0;
  rec.Right:=clientwidth;
  rec.Bottom:=Clientheight;
  Image:=TBitMap.Create;
  Image.LoadFromFile('..bmp');
  newBr:=CreatePatternBrush(Image.Handle);
  FillRect(Self.Canvas.Handle, rec, newBr);
  DeleteObject(newBr);
  Image.Free;
  Msg.Result:=0;
end;

was ich machen will, ist ein eigenen formulartyp zu erstellen TClientForm, abgeleitet von TForm..
diese sollen folgender maßen aufgerufen werden:

Code:

procedure TClientForm.Initialisate(Owner: TComponent; Image: TBitmap=nil); overload;
procedure TClientForm.Initialisate(Owner: TComponent; Path: String); overload;
 
var Form: TClientForm;
 
Form.Initialisate(Application.MainForm, 'Bild.bmp');

also quasi soll man als parameter übergeben, welches formular das clientform als parent haben soll und wenn gewünscht ein hintergrund bild, dass mit WMEraseBkGnd gezeichnet werden soll, falls nicht die procedure mit Image=nil aufgerufen wurde..
beim aufruf der prozedur soll folgendes gesehen: formular wird erzeugt, als client eingerichtet, der hintergrund wird evtl verändert, dann soll es quasi als normales formular fungieren.. beim schließen soll es dann freigegeben werden und die referenz auf nil gesetzt werden, damit es beim erneuten aufrufen keine probleme gibt..

ich hoffe es wird klar, was gemeint ist, sonst fragt einfach nach^^

es wäre sehr nett, wenn mir jemand mal die klassendeklaration hier posten könnte, da ich hier am rumraten bin, aber es nicht funktioniert wie es soll

ps: später möchte ich noch das die images wahlweise gestreckt oder wie normal nebeneinander gezeichnet werden.. geht das strecken auch mit dieser prozedur? und kann man das formular auch als normales formular verwenden, wie das unter Datei->Neu->Formular, sodass es auch in der entwurfszeit zur verfügung steht?^^

vielen dank schonmal

mfg lord of the universe

Nach oben

The-Winner

Betreff des Beitrags:

Verfasst: Sa Aug 16, 2008 09:17

DGL Member

Registriert: Di Jun 06, 2006 09:59
Beiträge: 474

In wieweit unterscheiden sich deine Anforderungen von dem was Delphi mit MDI ohnehin bereits bietet?

_________________

Nach oben

Lord of the Universe

Betreff des Beitrags:

Verfasst: So Aug 17, 2008 12:07

DGL Member

Registriert: Sa Jan 13, 2007 18:39
Beiträge: 15

keine ahnung, ich hab noch nie was mit mdi gemacht

das wäre natürlich praktisch, wenn das schon alles so funktioniert

aber kann man das nich auch selbst programmieren?

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.