|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Zuklappbare Komponenten
26. Okt 2012, 12:44
Delphi-Quellcode:
procedure TForm3.GroupBox1Click(Sender: TObject);
begin
// Tag vorher auf Designheigt setzen
if TGroupBox(Sender).Height = TGroupBox(Sender).Tag then
TGroupBox(Sender).Height := 16
else
TGroupBox(Sender).Height := TGroupBox(Sender).Tag;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|