Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[DELPHI] Listbox -> Memo

14 Gru 2010 19:54 2250 6
  • Poziom 8  
    Czesc

    Mam ListEdit oraz Memo na formie.

    ListEdit wypełniam poprzez:

    Code:

    function EnumWindowsProc(WHandle: HWND; LParM: LParam): Boolean;StdCall;Export;
    var Title,ClassName:array[0..128] of char;
    sTitle,sClass,Linia:STRING ;
    begin
    Result:=True;
    GetWindowText(wHandle, Title,128);
    GetClassName(wHandle, ClassName,128);
    sTitle:=Title;
    sClass:=ClassName;
    if IsWindowVisible(wHandle) then
    begin
    Linia:=sTitle+' '+sClass+' '+IntToHex(wHandle,4);
    Form3.Listbox1.Items.Add(Linia);

    i później buttonem:
    Code:

    EnumWindows(@EnumWindowsProc,0);


    I teraz chciałbym aby po kliknięciu na Item w ListBoxie (może być poprzez dblclick-jakkolwiek) przekopiowało wybrany Item listBoxa do Memo.
    Ogólnie to rodzaj komponentu jest dla mnie bez znaczenia. Próbowałem z RadioGroup -> Edit etc...


    Próbowałem:

    Code:
     For I:=0 to ListBox1.Items.Count-1 Do
    
      If ListBox1.Selected[I] then
      Memo1.Lines.Add(ListBox1.Items.Strings[I]);

    albo:
    Code:
      Memo1.Lines.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);


    Prosze o wskazówki :)
  • Poziom 42  
    I co np w tym drugim przypadku dostawałeś i po jakiej akcji?
  • Poziom 8  
    kompiluje się ale nic się nie dzieje po klikaniu w Itemy na ListBoxie.
  • Poziom 42  
    To zrób tam jakiś Application.MessageBox - pojawia się?
  • Moderator Programowanie
    @Autor :
    Pytanie jest tego typu : W jakim zdarzeniu wywołujesz cytowany przez Ciebie fragment kodu?
    Code:
    var
    
     i : integer;
    begin
     For I:=0 to ListBox1.Items.Count-1 Do
      If ListBox1.Selected[I] then
      Memo1.Lines.Add(ListBox1.Items.Strings[I]);
    end;
    Jest całkowicie poprawny i np. uruchomiony w obsłudze zdarzenia OnClick, działa bez żadnego problemu.
  • Poziom 42  
    Podobnie jak i drugi jeśli przyjąć, że nie używa się własności MultiSelect.
  • Poziom 8  
    już działa - głupia sprawa - aż wstyd się przyznać - miałem za małe memo i po prostu nie było widać tekstu wyświetlanego.