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 ...

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 ...

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 ...

Ş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 ...

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 ...

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 ...

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 ...

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 ...

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';
if Key ...