ミ,,゚Д゚彡フサギコのフサフサDelphi談話室その20
■ このスレッドは過去ログ倉庫に格納されています
0737デフォルトの名無しさん
05/01/24 11:49:52俺はそのせいで設定ダイアログが変になって原因究明に困った。
以下は再現方法。
Form2を追加、Form1でForm2.ShowModal;とし、Form2が表示される。
Form2では、
var
H1: THandle;
procedure TForm2.Button1Click(Sender: TObject);
begin
ShowMessage('現在のハンドルは' + IntToStr(Handle) + #13#10 +
'OnCreate時点では' + IntToStr(H1));
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
H1 := Handle;
end;
とすると、Form2は自動生成だろうが動的生成だろうが値が異なる。
■ このスレッドは過去ログ倉庫に格納されています