DUYURU: Türkiye'nin en güncel ve kaliteli Google Fan Forum platformuna hoşgeldiniz!
  Google Forum, Webmaster Forum, Google Yardım Forumu Forumu.

DELPHI / Mdi
Tam Görünüm | Konu Görünümü
Yorum: 0   Görüntülenme: 946
Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5

avatar
Administrator
  • 1,133 Mesaj
  • 1,106 Konu
  Kaan şuan Çevrimdışı
PHP Kod:
procedure TfrMain.LoadPictureClick(SenderTObject);
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(SenderTObject);
var 
iinteger;
begin
for i:= MdiChildCount 1 downto 0 do
 
 MDIChildren[i].WindowState := wsMinimized;
end
"Her nefis öIümü tadacaktır. Sizi imtihan etmek için hayra ve kötülüğe mübtela kılarız. "
"Hepiniz en sonunda bize döndürüleceksiniz."
oldest  newest
  Konuyu Okuyanlar: 1 Ziyaretçi