Load Gambar Dengan Delphi
Pembahasan pertama kita kali ini, membahas cara membuat load gambar pada delphi. langkah pertama buatlah desain form sebagai berikut :
sesuaikan pengaturan pada saat mendesain form. Setelah selesai, double klik pada button "buka gambar".
tulis koding di bawah ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;
end.
Komentar
Posting Komentar