Kod: Tümünü seç
procedure SetAsMainForm(aForm:TForm);
var
P:Pointer;
begin
P := @Application.Mainform;
Pointer(P^) := aForm;
end;
SetAsMainForm(form2);
Çalışma anında mainform değiştirme
Çalışma anında mainform değiştirme
-
sadettinpolat
- Moderator
- Mesajlar: 2131
- Kayıt: 07 Ara 2003 02:51
- Konum: Ankara
- İletişim:
Re: Çalışma anında mainform değiştirme
tazeleme olsun bu arada
code=php var da code=pascal niye yok forumda.
olsa güzel olurdu.