[Delphi] Tekst -> Memo

Jak zrobic, zeby po nacisnieciu klawiczy powidzmy Alt prawy i F1 do memo1 dodal wiadomoca z edit1 ;-)

prosze o konkretny kod ;-)

Wrzuć TActionList, dodaj akcję i ustaw ShortCut na Alt+F1. Następnie dodaj ukrytą pozycję do menu i w akcji daj:
Memo1.Add(Edit1.TexT);
Jest to brzydka metoda, ale powinna działać.

--
Vogel [[email protected]]

Life is just a dream, you know...
[Cowboy Bebop]

Ustaw KeyPreview formy na True i w OnKeyDown formy daj:

if (Key=VK_F1) and (ssAlt in Shift) then
Memo1.Lines.Add(Edit1.Text);

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1