PopupMenu ye ekleme hakkında....

[ender_arslanturk]

Uzun bir süre sonunda herkese iyi akşamlar....

Aradım fakat tam hakim olamadığım birşey oldu. Ben de şaşkınım. Gece 01:15 şu an...

Veritabanında ki bir alan listesini popupmenuye döngü ile eklemek istedim. Fakat bir türlü çıkamadım işin içinden . Yardımcı olabilecek arkadaşlarda yapmış bulunduğum ücretsiz sözlük cümle çeviri programına katkıda bulunmaları beni sevindirir. Tabii cevap gelene kadar bende çözersem bir süredir fayda veremediğim forumumuza katkıda bulunmuş olurum....

Başarılar,

[gkimirti]

Kod: Tümünü seç

var
  mi: TMenuItem;
begin
  pmLog.Items.Clear;

  with QLog do
  try
    Close;
    Open;
    while not Eof do
    begin
      mi := TMenuItem.Create(pmLog);
      mi.Caption := Fields[0].AsString;
      pmLog.Items.Add(mi);
      Next;
    end;

  finally
    Close;
  end;
end;

pmLog popupmenu dur...

[ender_arslanturk]

hocam ancak gördüm mesajı sağolasın. sonucu bildiririm.