Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sharky,
18. Jan 2006
Hai Marco,
danke für den Tipp. Jetzt scheint alles so zu laufen wie ich es möchte.
Ich habe dein Visible True/False durch diesen Code ersetzt ung es geht:
procedure TShExTntEdit.DoExit;
begin
inherited DoExit;
Inherited Perform(CM_RECREATEWND, 0, 0);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Sharky,
18. Jan 2006
Hai ihr,
bei meiner letzen Frage hat Bernhard mir ja den Tipp gegeben mich in das OnPaint des TEdits einzuklinken.
Jetzt gibt es das aber dort nicht. Wenn ich versuche mich so in die Paint-Message inzuhängen wird diese natürlich durch das Zeichnen meines Rahmens immer wieder ausgelösst.
procedure TShExEdit.WMPaint(var Message: TWMPaint);
begin
inherited;