Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
8. Mär 2007
Gut, gut. Aber da war noch einiges an Feinschliff nötig. Jede Zeile ist wichtig. Hänge mal für die Nachwelt ein kleines Projekt an, um zu zeigen, wie so was geht (Kommentare beachten). ABER : es ist noch nicht fertig. Folgendes ist noch offen :
vorab : das Demo-Projekt hat 2 Forms (per Objektablage vererbt). Da das kaum einer benutzt, nur als Hinweis, dass die 2. Form vom Source praktisch leer...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
6. Mär 2007
Ist wohl doch nicht so einfach wie gedacht, was ? Deshalb verschiebe ich das ja laufend und mache es nicht fertig. :zwinker:
Letzter Stan der Dinge :
procedure TfrmKey.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var c : TComponent; // <--- Überbleibsel
aLabel : TControl;
begin
if Key = 13 then begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
5. Mär 2007
Wo muss denn das jetzt genau hin ? :shock: Ich kann es doch nur im OnKeyDown des Formulars gebrauchen. Delphi meckert schon hier drüber:
(ActiveControl as TLabel)
Form1.pas(250): Inkompatible Typen: 'TLabel' und 'TWinControl'
Bitte jetzt Butter bei die Fische, sonst verhungert das Eichhörnchen. :P Das kann nicht mehr viel sein.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
5. Mär 2007
Mit dem ActiveControl (Lannes) kriege ich tatsächlich das gewünschte Label. Das ist schonn mal gut. Wie bringe ich das nun noch dazu sein eigenes OnClick auszuführen ? Blöd, wenn man nicht am Stück an einer Sache dran bleiben kann. Mühsam ernährt sich das Eichhörnchen. :mrgreen:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
5. Mär 2007
Der Sender ist aber das Formular (FormKeyDown). Woher soll dieses denn wissen, um was es genau geht ? Ohne Bsp. oder einen längeren Satz kann ich nichts mit der Antwort anfangen. :???:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
2. Mär 2007
Hi,
die Frage hat hiermit was zu tun :
http://www.delphipraxis.net/internal_redirect.php?t=104742&sid=08ad6b7627a6b73bb7955d5395de32b4
Es geht um ein Panel und ein Label darauf. Nun kommt hinzu, dass bei Drücken von Enter etwas gemacht werden muss. Und zwar, sofern das Label oder das entsprechende Panel den Focus hat. Leider hat das Label kein KeyPress usw. und das Panel hat kein...