Listbox taki printerlerin idexlerini alma

[kayipgemi]

Selamünaleyküm Arkadaşlar herkese kolay gele

Programımda

Kod: Tümünü seç

Uses Printers
...
...
var
printer:TPrinter;
index:integer;
     
     begin
     
     printer:= TPrinter.Create;
     printer.Printers;
     ListBox1.Items:=printer.Printers;
     index:=printer.PrinterIndex;

şeklinde mevcut printerleri listboxa aktarıyoruz, yapmak istediğim listboxtaki listelenen yazıclara tıkladığımda seçilen yazıcını index numarasını edit1 e yazması

nasıl yapabilirim yardımcı olabilirseniz sevinirim

yardımlarınız içi şimdiden teşekkür ederim, Kolay gelsin

[kayipgemi]

arkadaşlar belki faydası olur size ben şöyle bir yöntem buldum

listboxtaki listenen yazıcılar da ilk satırda olanın numarsaı (listbox satır numarası) 0 sonra 1 2 3 diye devam ediyor

printer index numarasını

Kod: Tümünü seç

var
pirno:integer;

begin
pirno:=ListBox1.ItemIndex;
showmessage (inttostr(pirno));
Printer.PrinterIndex :=pirno;

şeklinde yaptim

sonra form1.print; dedim baktım ki listboxtaki listelenen yazıcı sırasına gore gonderiyor

bu şekilde bir çözüm buldum gerçi biraz yavan bir kod oldu ama (içime sinmedi) çalışıyor.

daha farklı bir çözüm olabilecek fikirlerinizi yinede bekliyorum arkadaşlar

saygilar

[Mysterio]

Bende yüklü printer yok ama;
genel olarak
Edit1.Text:=Listbox1.Items[listbox1.itemindex];
//listbox1 den seçtiğin satırı Edit1.Text'e kopyalar
Edit1.Text:=intToStr(listbox1.itemindex);
//listbox1 den seçtiğin satırın index numarasını Edit1.Text'e kopyalar

[kayipgemi]

eyvallah hocam sağolasın ilgin için tşekkür ederim.

mrmarman hocam ile olayı şöyle çözdük (biraz kızdırdım kendisini ama )

Kod: Tümünü seç

 
uses printers;
....
....

var 
printer:TPrinter; 
 
  begin
  printer:= TPrinter.Create; 
  printer.Printers;
   
  ListBox1.Items        := printer.Printers; 
  ListBox1.ItemIndex := printer.PrinterIndex;

//burası button2
begin
  printer.PrinterIndex := ListBox1.ItemIndex;
  Showmessage (inttostr(printer.PrinterIndex));
end;