Konu: ListBox'da Belirlenen Item'den Aşağını Yasaklamak (Okunma sayısı 859 defa)

Subhan · « : 29 Ağustos 2008 10:49:45 »

Konunun başlığı qarip oldu neyse Forma TListBox ve TEdit ekleyin
Edit'de yazılan (Edite yazılan ListBox itemin'de olma) itemden aşağı inmez
Sadece Aşağı yön tüşu basıldığında çalışıyor

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

var
tmpPChar : PChar;
begin
GetMem(tmpPChar, Length(Edit1.Text) + 1);
StrPCopy(tmpPChar, Edit1.Text);
ListBox1.Perform(LB_SELECTSTRING, 0, LongInt(tmpPChar));
FreeMem(tmpPChar, Length(Edit1.Text) + 1);

end;

Gönderen Konu: ListBox'da Belirlenen Item'den Aşağını Yasaklamak (Okunma sayısı 859 defa)

Subhan

ListBox'da Belirlenen Item'den Aşağını Yasaklamak