Handle ändert sich

[Bummi]

Du könntest CreateWnd überschreiben welches aufgerufen wird wenn das Frame erstellt oder das zugrunde liegende Bildschirmobjekt freigegeben und neu erstellt werden muss.

Delphi-Quellcode:

  TMyFrame = class(TFrame)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure CreateWnd;override;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

{$R *.dfm}
procedure TMyFrame.Button1Click(Sender: TObject);
var
 p:TWinControl;
begin
  p := Parent;
  parent := nil;
  parent := p;
end;

procedure TMyFrame.CreateWnd;
begin
   inherited;
   label1.caption := IntToHex(handle,6);
end;