Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#8
  Alt 17. Jun 2003, 21:15
Moin 1PM,

ich hab's mal probiert:

Ein Hauptformular als MDI als fsMDIForm, ein MDIChild (fsMDIChild), darauf ein TImage (alClient).
Dann über einen Menüpunkt das Image rausgesucht, und eine Datei geladen.
Klappt allerbest.

Delphi-Quellcode:
procedure TfrmMAIN.miFileOpenClick(Sender: TObject);

var
  i : integer;
  imWork : TImage;

begin
  imWork := nil;
  for i := 0 to MDIChildCount-1 do
  begin
    imWork := MDIChildren[i].FindComponent('image1') as TImage;
    if Assigned(imWork) then break;
  end;
  if Assigned(imWork) then begin
    imWork.Picture.Bitmap.LoadFromFile('c:\temp\SK_AMA_BACS_0102.bmp');
  end;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat