Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Martin K,
23. Jul 2006
Danke, jetzt hab ich's :thumb:
So klappt's:
procedure VonTEditAbgeleitet.VisibleChanging;
begin
inherited;
MeineZweiteKompo.Visible := not Visible; // weil Visible erst nach der Prozedur geändert wird
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Martin K,
23. Jul 2006
Wie muss ich denn die Prozedur deklarieren?
Hab es so versucht:
procedure CMVisibleChanged(var Message: Byte); message CM_VisibleChanged;
Doch egal ob Show oder Hide - als Message wird immer 11 übergeben :gruebel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Martin K,
23. Jul 2006
Hi,
folgendes Problem:
Habe eine Komponente vom TEdit abgeleitet.
Dazu gehört noch eine weitere, die auch sichtbar ist.
Wenn ich also Visible auf False stelle werden beide Komponenten unsichtbar, bei True beide sichtbar.
Klappt soweit ganz gut, hab also einfach bei der property Visible folgenden Code:
procedure VonTEditAbgeleitet.SetVisible(const Value: Boolean);
begin
inherited...