Delphi Forum

Selam-u Aleyküm.

sabanakman arkadaş en doğru yolu göstermiş zaten.
Panellerle bu işi çözebilirsin.
Formun dört kenarına ve ortasına panel yerleştir. (Panel1 - Aling = alLeft, Panel2 - Aling = alRight, Panel3 - Aling = alTop, Panel4 - Aling = AlBottom, Panel5 - Aling = alClient).
Hepsi bu. Hangi ...

Selam-u Aleyküm.

adelphiforumz arkadaşa da teşekkür ederim.
Araştırmalarıma ve denemelerime göre konuşuyorum. Bu tür bir işi yapabilmek için m_yaprakci arkadaşın dediği gibi her yazıcıya göre farklılık gösteren denetleme kodlarını bilmek gerekiyor. Yüzlerce örnek inceledim 3-4 günde. Denemeler ...

Selam-u Aleyküm.
Sayın m_yaprakci arkadaş.

İlgine teşekkür ederim. Ben de bu ve buna benzer sitelerden yardım topladım. Bu günkü denemelerimde de inşallah biraz yol aldım. Tamamlar tamamlamaz site de yazdığım kodu doğrudan paylaşacağım inşallah. Allah razı olsun.
Selam ve Dua ile...

s.a.

Toplamaktan kastını anlatabilrsen belki yardımcı olarabirim

Selam-u Aleyküm.

Arkadaşlar Elimde Bluetooth yazıcı var. Herhangi bir com porta yönlendirilmiş.
Windows ta yazıcı tanımlamadan, bu portu kullanarak yazıcıya yazı göndermem gerekiyor.
Ancak Yazı fontlarını ve bitmap formatlarını da kullanarak yazdırmam gerekiyor.
Bir çok örnek inceledim, denedim ...

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_f2 then
GroupBox1.Visible:=True;
edit1.SetFocus;
end;