Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

DELPHI / Mdi

YaSa22

Fahri Üye
Fahri Üye
Katılım
12 Temmuz 2014
Mesajlar
2,293
Tepkime puanı
2
Puanları
0
Konum
GTA
procedure TfrMain.LoadPictureClick(Sender: TObject);
begin
if ActiveMDIChild <> nil then
TfrChild(ActiveMDIChild).LoadPicture;
end;

uses ExtDlgs;
...
procedure TfrChild.LoadPicture;
var OpenPicDlg : TOpenPictureDialog;
begin
OpenPicDlg := TOpenPictureDialog.Create(Self);
if OpenPicDlg.Execute then
begin
Image1.Picture.LoadFromFile(OpenPicDlg.FileName);
end;
OpenPicDlg.Free;
end;

...
type
TfrChild = class(TForm)
...
private
public
procedure LoadPicture;
end;
...

frMain.WindowMenu := ChildList;

procedure TfrMain.MinimizeAl1Click(Sender: TObject);
var i: integer;
begin
for i:= MdiChildCount - 1 downto 0 do
MDIChildren.WindowState := wsMinimized;
end;
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst