Delphi Forum

Merhaba,

Delphi ile seri porta bilgi göndermek için ne kullanıyorsunuz belirtmemişsiniz ama Turbo Power'ın bu konuda başarılı bir bileşeni var. Bu bilşeni kullanarak bu istediklerinizi çok basit bir şekilde yapabilirsiniz.
Bir outbuffer oluşturursunuz. Tstringlist tipinde. Bu OutBuffer'a ...

Şöyle olsa,
22.02.2005-22.10.23.Bmp gibi bir isme sahip olur dosyanız.

http://www.mobilsoft.com.tr/default.asp?id=44
böylede bir link buldum. Tam olarak isteğinize cavap verecektir bu tür bir cihaz. Fiyatı ne düzeydedir bilmiyorum ama böyle bir proje yapacak olsaydım herhalde önce böyle bir cihaz üzerinde yoğunlaşırdım.

Bir soru da benden. Bu formları okuyan cihazlar var. Neden bu cihazlar varken böyle bir program ihtiyacı hissediliyor. Bu cihazlar pahalı olsa bile en kesin ve en hızlı çözüm olmazmı?

mrmcop çok haklısın bence. Ben eğer nesneyi silmek için aylarladığım tuşun arada bir çalışmamasından veya kullanıcıya bir "özür mesajı" :) döndürmesindense runtime'da hiç nesne oluşturmamayı tercih ederim. Eğer problem çözülmeseydi (çok teşekkürler) kesinlikle nesne oluşturmaktan da vazgeçerdim.

Hangi duruma göre yanlış? :idea:
Sizin yazdığınız koda göre söylediğiniz doğru.


procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var
X :Integer;
xy :TComponent;
begin
Case Key Of
Ord(vk_Delete): For x:=0 to Form1.ComponentCount-1 Do
Begin
xy:= Form1.Components ...

Küçük bir bilgi de ben ekleyim.
Try -Except buloğu, "Access voilation at adress..." şeklindeki hatalarda malesef işe yaramıyor.
Stop on Delphi Exception veya Break on Exception ifadeleri ise programı delphi'de çalıştırıp denerken bu hata yakalama bloklarında veya başka bir satırda hata oluştuğunda ...

Tekrar merhaba,

mrmcop arkadaşımızın gönderdiği kod sayesinde problemi hallettim. Çok teşekkür ederim. Bu iki satır bakış açımı biraz daha değiştirdi.
Bahadır arkadaşım. Componentleri liste halinde göstersen bile "Delphi tasarım ekranında olduğu gibi silmek" için birkaç satır koda da ihtiyaç var ...

Componenti free etmeden önce başka bir nesneye setfocus yapsam bile durum değişmiyor.

Forma rastgele nesneler attıktan sonra, formun keypreview özelliğini true yapıp formun onkeyup olayına aşşağıdaki kodları yazarsanız, durum hakkında daha net şeyler ortaya çakabilir.


Var
X :Integer;
xy ...

Merhaba,

Amacım runtime'da oluşturduğum bileşenleri, Delphi'nin tasarım ekranında
olduğu gibi "del" vaya başka bir tuş ile yok etmek. Aşşağıdaki kod parçası aslında bu işi yapıyor ama her seferinde Access Violation... şeklinde hata veriyor. Ben işin içinden çıkamadın. Şimdiden çok teşekkürler ...