Registriert seit: 26. Aug 2003
Ort: Hövelhof Riege
105 Beiträge
Delphi 2007 Professional
|
Re: Komponenten in eigens Form auslagern während es läuft?
24. Okt 2006, 11:01
Bin ich doof?
Ja ich bin doof!!!
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if self.Button1.Parent = Form1
then self.Button1.Parent := Form2
else self.Button1.Parent := Form1;
end;
end.
Sorry.
Gruß
Frank
Frank Gellermann Wer Informationen hat, hat Macht. Wer Macht hat, hat Informationen!!!
|
|
Zitat
|