Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
4. Jan 2003
Moin Christian !
Jau, das hat hingehaun. Danke !
Aber ich werd das mit dem Chat wohl erstmal in Ruhe lassen.
Ich hab nämlich jetzt noch versucht meinen TEdit(Sender).Text in das auch dyn. erstellte TListView zu schreiben. Aber da hagelt's Exceptions ... GRRR
War wohl doch ein wenig zu heftig für'n Anfang ...
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
3. Jan 2003
Verdammt, ich krieg's nicht hin !
Zur Entwurfszeit kein Problem ...
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Var User : String;
begin
If (Key= (VK_RETURN)) And Not (Edit1.Text='') Then
begin
User := 'IrgendEinUser'
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
3. Jan 2003
Hi Helld
Also ich ich hab' kein Problem damit das Array zu erstellen, sondern in der nächsten Prozedur (mein OnKeyDown vom dyn. TEdit) herauszufinden, von welchem TEdit das OnKeyDown-Ereignis ausging !
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
3. Jan 2003
Ok,
sagen wir, ich krieg 4 Nachrichten von unterschiedlichen Usern. Dann wird pro Nachricht, auf dem PageControl ein Tabsheet erzeugt und darauf jeweils ein TEdit und ein TListView als Array of TEdit/TListView.
Nun kann ich in der nächsten Prozedur über den Index bis ja darauf zugreifen. Aber woher weiss ich, welcher Index zu dem jeweiligen User gehört ???
Kann ich da nicht etwas mit dem...
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
3. Jan 2003
Moin !
Arrrgh :evil: Ich hab das TForm1 vor OnKeyDown vergessen.
procedure TForm1.MeinKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Das OnKeyDown Ereignis funzt jetzt :D
Nun hab ich aber immer noch das Problem, dass ich nicht weiss wie ich mit meinem dyn. erstelltem TListView und TEdit in der TForm1.MeinKeyDown - Prozedur weiter arbeiten kann (Es kann ja auch...
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
2. Jan 2003
OK, alles wär vielleicht ein wenig lang ...
ich poste mal die Teile die ich für diese Prozedur erstellt/geändert hab:
interface
...
uses
...
type
...
procedure MeinKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
2. Jan 2003
OK
Aber dann krieg ich oben bei der Deklaration die Meldung:
'Ungenügende Forward- oder External-Deklaration: TForm1.MyKeyDown'
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
2. Jan 2003
Ääääh hmmm ...
Also:
- KeyPreview ist true.
- OnKeyDown:=MeinKeyDown; sollte für's dynamisch erstellte TEdit sein.
Genau das hatte ich eigentlich vor :? !
Patrick
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
2. Jan 2003
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)
...
NewTab := TTabSheet.Create(Form1.PageControl3);
NewTab.PageControl := Form1.PageControl3;
NewEdit := TEdit.Create(NewTab);
Forum: Object-Pascal / Delphi-Language
Delphi
by Exciter,
2. Jan 2003
Moin zusammen !
Ich möchte bei einem dynamisch erzeugtem TEdit auf ein OnKeyDown/Press Ereignis reagieren. Ich hab' mir diesen Thread durchgelesen http://www.delphipraxis.net/viewtopic.php?t=1934. Mir ist aber nicht klar wie ich die Methode deklarieren muss. Ein kurzes Beispiel wäre super !