Grid üzerinde basılan tuşlara göre arama yapma

[nitro]

merhaba
delphi 7 firebird 1.5 kullanıyorum.
Yapmak istediğim şu, bi datagrid üzerinde harflere basıldığı zaman harfler üstteki label'a yazılsın ve gridde labelın içeriğine en yakın kayda komunlansın.
mesela grid üzerindeyken, A harfine basınca label içeriği A olsun ve A ile başlayan kayıtlara konumlansın. Lye basınca label içeriği AL olsun ve AL ile başlayan kayıtlara konumlansın. Backspace'e basınca label içeriği A olsun yine gibi.
yardımlarınız için şimdiden teşekkürler.
saygılarımla

[cihan]

merhaba
delphi 7 firebird 1.5 kullanıyorum.
Yapmak istediğim şu, bi datagrid üzerinde harflere basıldığı zaman harfler üstteki label'a yazılsın ve gridde labelın içeriğine en yakın kayda komunlansın.
mesela grid üzerindeyken, A harfine basınca label içeriği A olsun ve A ile başlayan kayıtlara konumlansın. Lye basınca label içeriği AL olsun ve AL ile başlayan kayıtlara konumlansın. Backspace'e basınca label içeriği A olsun yine gibi.
yardımlarınız için şimdiden teşekkürler.
saygılarımla

Sorun çok açık değil ama anladığım kadarıyla firebird de starting with komutu işine yarayabilir.

[kadirkurtoglu]

DBGridin onkeypress olayına

Kod: Tümünü seç

label1.Caption := label1.caption + key;
Query1.Locate('FIELD', Label1.Caption, [loPartialKey, loCaseinsencitive]);

[sabanakman]

Kod: Tümünü seç

type TDBGridCrack=class(TDBGrid);

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption:=TDBGridCrack(Sender).InplaceEditor.Text;
end;

[nitro]

Kod: Tümünü seç

label1.Caption := label1.caption + key;
Query1.Locate('FIELD', Label1.Caption, [loPartialKey, loCaseinsencitive]);

kodu çalışıyor ama bascspace'e basunca silmiyor?
o kısmını nasıl hallederim acaba?

[kadirkurtoglu]

Kod: Tümünü seç

if key = #8 then
label1.caption := '';

aklıma ilk gelen. string fonksiyonları kullanılarak #8 back tuşu ile sağdan birer harf sildirebilirsin...

[nitro]

teşekkürler

Kod: Tümünü seç

iif key = #8 then 
label1.caption:=copy(label1.caption,1,lenght(label1.caption)-1);

gibi bir kodla hallettim.
emeği geçenlere teşekkürler.
iyi ki varsınız