Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
21. Mär 2009
*push* Hat denn keiner eine Idee, Hinweis oder Hinweispunkt ? *push*
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
18. Mär 2009
Hallo zusammen,
ich habe es mittlerweile hinbekommen. Mein Sourcecode sieht jetzt so aus :
procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
Handled := False;
if Msg.message = WM_KEYDOWN then
begin
if (TV_1.IsEditing) and (TV_1.Tag = 0) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
14. Feb 2009
Ich habe nochmals rum und num probiert, komme aber auf keinen grünen Zweig. So sieht jetzt meine Procedure aus :
procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
Handled := False;
if Msg.message = WM_KEYDOWN then
begin
if TV_1.IsEditing then
begin
if (Msg.wParam > 47) and (Msg.wParam < 91) then // oder irgendeine andere Taste deiner Wahl
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
13. Feb 2009
Dieser Code funktioniert insoweit, dass das Eingebene erst nach dem betätigen der Enter-Taste sichtbar wird.
procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
Handled := False;
if Msg.message = WM_KEYDOWN then
begin
if tv1.IsEditing then
begin
if (Msg.wParam > 64) and (Msg.wParam < 91) then // oder irgendeine andere Taste deiner Wahl
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
13. Feb 2009
Hallo Hartmut,
Dein Sourcecode wird nicht funktionieren. Denn die Zeile 21 wird nicht funktionieren, da EditText eine Funktion ist und mir nur Boolean zurückgibt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
13. Feb 2009
Hallo Hartmut,
ich habe jetzt mal ein bischen mit dem Code aus Deinem verlinkten Beitrag getestet und folgendes ist dabei rausgekommen :
procedure TForm16.OnAppMsg(var Msg: TMsg; var Handled: Boolean);
begin
Handled := False;
if Msg.message = WM_KEYDOWN then
begin
if (Msg.wParam = VK_RETURN) and (tv1.IsEditing) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
12. Feb 2009
Da hast Du recht, lass uns mal drüber schlafen. Die Tests aus meinem Beitrag #8 werde ich auch erst machen, wenn ich geschlafen habe. So richtig weiter komme ich nämlich zur Zeit auch nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
12. Feb 2009
Das haben zumindest meine bisherigen Tests ergeben. Ich habe zu dem Editiermodus des TreeViews aber auch noch nichts weiteres gefunden. Mir wäre es am liebsten, ich kann das über das normale KeyDown vom TreeView abhandeln. So brauche ich die anderen Komponenten nicht anzufassen. Das blöde ist halt, wenn ich per Sourcecode einen Text für die Node vorgebe und dann nur Enter gedrückt wird, wird das...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
12. Feb 2009
Ok, ich werde es mal testen. Aber ganz zufrieden bin ich damit nicht. Da das eine Menge Aufwand bedeutet.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
12. Feb 2009
Ok, dabei stellt sich mir jetzt aber die Frage, welche wird als erstes Ausgeführt ? Das OnKeyDown, OnKeyPress Ereignis von der Komponente oder das globale ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
12. Feb 2009
Dann müsste ich ja meine anderen KeyDown, KeyPress etc. alle umbauen. Das ist nicht was ich will, da ich in mehreren Komponenten auf Tasten reagiere.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by RWarnecke,
12. Feb 2009
Hallo zusammen,
ich habe da mal wieder ein Problem. Ich erstelle mit dem folgenden Code eine neue Node in einem TreeView und setze diese in den Editiermodus :
tmpNode := TV_Category.Items.AddChild(TV_Category.Selected, 'Neue Kategorie');
tmpNode.ImageIndex := 0;
tmpNode.SelectedIndex := 0;
TV_Category.Selected.Expand(False);
tmpNode.Selected := True;
...