Moin Moin !
Gesagt getan. Funzt aber nicht ...
(Das ganze soll ein Chat mit Private Messages werden und für jeden Chat/jede PM soll ein eigener TabSheet mit nem Edit/ListView erstellt werden)
Code:
...
NewTab := TTabSheet.Create(Form1.PageControl3);
NewTab.PageControl := Form1.PageControl3;
NewEdit := TEdit.Create(NewTab);
NewListView := TListView.Create(NewTab);
TWinControl(NewEdit).parent := NewTab;
TWinControl(NewListView).parent := NewTab;
OnKeyDown := MeinKeyDown;
end;
Das funzt auch alles soweit. Nur passiert nix, wenn ich im Programm auf 'Return' drück'.
Code:
procedure TForm1.MeinKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
If (Key= (VK_RETURN)) And Not (NewEdit.Text='') Then
begin ....
und hier das nächste Problem: Wie kann ich jetzt etwas mit dem eben erstelltem ListView anstellen ??
Thx für die Hilfe
Patrick