Delphi Forum

Aşağıdaki örneğin işinizi göreceğini umuyorum. Ben 3 tane panel ve herbirinin içine birer label koyarak aşağıdaki kodla bir deneme yaptım. Mouse down yerine Up'ı tercih ettim, bunu değiştirebilirsiniz. Anladığım kadarıyla sizin istediğiniz gibi oldu. type TForm1 = class(TForm) Panel1: TPanel; Label1...

Sleep yerine timer kullanın. timer'ın interval'ini 5000 yapın ve enabled false yapın. Form1'in OnShow'unda Timer1.enabled := true; yapın.
Timer'ın Ontimer event'inde Timer'ı tekrar disable yapın ve form2.show yapın. Takılırsanız daha detaylı yazarım.

Aşağıdaki satır ile oyna çözersin. +1 veya +2 yap.
...
if key = vk_right then
begin
if TDBGridX(DBGrid1).LeftCol < (DBGrid1.Columns.Count - TDBGridX(DBGrid1).VisibleColCount + 1) then
...

Merhaba Aşağıdaki kodu denermisin. Sanırım istediğin bu type TDBGridX=class(TDBGrid); procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = vk_right then begin if TDBGridX(DBGrid1).LeftCol < (DBGrid1.Columns.Count - TDBGridX(DBGrid1).VisibleColCount) the...

Merhaba, Tüm kriterleri doldurup denediniz mi? Tarihin SQL trace'de görünmemesi çok enteresan. Ayrıca kurduğunuz mantık ile ilgili bir hata var görünüyor. Sınırlamak istemediğiniz kriterler boş olsa bile daima sorguda geçiyor. Şu şekilde yapmanız daha doğru olacaktır. SQL.Text := 'select * from IVR_...

Şu şekilde de kullanabilirsin. with module.adoStokRapor do begin // Close; // buna gerek yok, zaten SQL.Text değiştiğinde zaten kapanır // SQL.Clear; // Aşağıdaki gibi Add kullanmadan Text'e direkt atayabilirsin. SQL.Text := 'select * from IVR_SIPARIS where siparis_no like ''' + SiparisNo.text + '%'...

Kullandığın crack hatalı ondan oluyor. Aynı sorunu ben de yaşadım. Daha fazla bilgi için PM atabilirsin.

Delphi7'den okuyorsan alım kısmındaki satırı aşağıdaki ile değiştir.

sMsg := PWideChar(Msg.CopyDataStruct.lpData);

Gönderim kısmı için söylediğim değişiklik hala geçerlidir.

DataStruct.cbData := length(edit1.Text) * SizeOf(WideChar);

Merhaba,

Eğer unicode ise gönderimdeki ilgili satırı aşağıdaki gibi değiştirirsen çalışacaktır.

DataStruct.cbData := length(edit1.Text) * SizeOf(WideChar);

Merhaba, Dos komutlarında bu işi "echo" komutu ile yapıyorduk. Örneğin del *.* komutunu çalıştırdığınızda onay sorusu gelir ve Y tuşuna bastığınızda silerdi. Y komutunu otomatik girmek için echo Y|del *.* yazıldığında soru sormadan dosyalar silinebiliyor. Yapmak istediğinizi aşağıdaki gibi...

Merhaba, IOS üzerinde çalışacak bir uygulama için bir listeyi kullanıcının satırları taşıyarak sıralayabilmesini istiyorum. Listview'da hiç bir şey yapamadım fakat ListBox ile AllowDrag=true yaparak Windows platformunda mouse ile taşıyabiliyorum. IOS üzerinde gerçek bir cihaz ile denediğimde ise taş...

Merhaba, Aşağıdaki kodlar işini görecektir. // Sol tuş ile tıklama için procedure MouseLeftClick; begin Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); end; // Sağ tuş ile tıklama için procedure MouseRightClick; begin Mouse_Event(MOUSEEVENTF_RIGHTDOWN, 0, ...

Merhaba, Eğer sunucu AD üyesi ise aşağıdaki kodu da kullanabilirsiniz. Ben web servislerinde bunu kullanıyorum. IIS'de de sorun çıkarmıyor. function LogonTest(pUser, pDomain, pPwd: string; var ErrorCode: Integer): Boolean; var Token: THandle; begin ErrorCode := 0; Result := LogonUser(PChar(pUser), P...

adelphiforumz, Sizi çok iyi anlıyorum. Edit nesnelerine herhangi ilave bir kod yazmadan düzgün bir büyük harf kullanımı olmuyor. XE8 de bile sorun devam etmekte. Hatırladığım kadarıyla başka programlama dillerinde de bu sorun var. Ben, büyük harf ihtiyacı olan Edit nesneleri için size verdiğim kod g...

Merhaba, Büyük harf modunda iken sadece "ı" ve "i" harflerinde sorun olur. Aşağıdaki gibi KeyPress event'inde sorunu çözebilirsin. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if TEdit(Sender).CharCase = ecUpperCase then begin if Key = 'ı' then Key := 'I'...