Mega Code Archive
Mdi ve mdichild form kullanımı
<![CDATA[
Form1in FormStyle=fsMDIForm
Form2nin FormStyle=fsMDIChild
Seçilir...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Uses Unit2; //*****Önemli*******
{$R *.DFM}
//forma çift tıklandığında Child formlar açılsın
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var YeniForm:TForm2;
begin
if button=mbleft then
if ssDouble in shift then
begin
YeniForm:=TForm2.Create(Application);
YeniForm.Caption:='Yeni Form'+IntToStr(MDIChildCount);
end;
end;
end.
Coded By Ferhat Akkaş
]]>