Merhaba Arkadaslar Azerbaycanliyim o yuzden Turkcem kotu Screen Shot tutma programi Yapiyordum Delphi 7 ile yapimi bitirdim ama sadece 1 kisimda hata aliyorum kodu altda bakabilirsiniz ve yardim ede biliceyinizi dusunuyorum
bu hata programlamayi bitirdikden sonra nasil olduuna bakmak icin run (F9) basdiimda aldim
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
if openpicturedialog1,Execute then ISTE BU KISIMDE IF OPEN PICTUREDIALOG1.EXECUTE THEN KISMINDA HATA ALIYORUM KIRMIZI OLUYOR
image1.Picture.LoadFromFile(openpicturedialog1.FileName):
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
if savedialog1.Execute then
openpicturedialog hatası?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- muratmutlu
- Üye
- Mesajlar: 57
- Kayıt: 02 Tem 2005 02:44
- Konum: Antalya
Re: openpicturedialog hatası?
if openpicturedialog1,Execute satırında virgül kullanmışsınız sanırım. Onun yerine nokta olacak.
Re: openpicturedialog hatası?
denedim yardim etdiyin icin tesekkur ederim