Delphi-Quellcode:
type
TForm1 = class(TForm)
bBildladen: TButton;
Image1: TImage;
OpenDialog1: TOpenDialog;
procedure bBildladenClick(Sender: TObject);
procedure OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean);
private
{ Private-Deklarationen }
Bitmap1: Tbitmap;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.bBildladenClick(Sender: TObject);
var lBild:TBitmap;
begin
// lBild:= TBitmap.create;
//Image1:= lBild.LoadFromFile('D:\Dokumente und Einstellungen\Admin\Desktop\Informatik1')
end;
procedure TForm1.OpenDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
if OpenDialog1.Execute then
begin
Bitmap1.LoadFromFile(OpenDialog1.Bilder);
end;
end;
so das steht bei mir da
Zitat:
Bitmap1.LoadFromFile(OpenDialog1.Bilder);
nur öffnet der den Ordner Bilder nicht er kennt den Begriff einfach nicht. Das zweite Problem is das er diesen OpenDialog zwar im Formular anzeigt aber nicht im Debugger
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]