ale żeś wymyślił :)
przyszło mi do glowy coś takiego :
nakładasz na Memo1 pole Edit1 , tak ok 1 cm od góry
Memo1->ReadOnly ustawiasz na true
i robisz np. coś takiego :
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ( Key == char(13) )
{
Memo1->ReadOnly=false;
Memo1->Lines->Add(Edit1->Text);
Edit1->Text="";
Edit1->Top+=12;
Memo1->ReadOnly=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
Edit1->SetFocus();
}
// może to nie najpiękniejsze - ale działa :)
aby pole Edit1 nie było zbyt widoczne ustawiasz BorderStyle na bsNone