Eigene Komponente - Höhenänderung verhindern

[Jonelmeier]

Hi!

Ich entwickle grade meine erste eigene Komponente.
Nun möchte ich, dass es, wenn man die Komponente auf ein Formular gezogen hat, nicht möglich ist, deren Höhe, sowohl im Objektinspektor als auch auf der Form, zu ändern.
Die Komponente ist von TGraphicControl abgeleitet.

Hat vielleicht jemand einen Tipp?

Gruß an alle!
Jonelmeier

[shmia]

Die Prozedure SetBounds() überschreiben:

Delphi-Quellcode:

TMeinControl = class(TGraphicControl)
....
protected
  procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);  override;
.....

procedure TMeinControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);  
begin
   inherited SetBounds(ALeft, ATop, AWidth, 40);
end;

Aber Controls, die sich so unkooperativ verhalten sind nicht sehr beliebt.
Besser wäre es dann, die Zeichnung zu skalieren oder zumindest vertikal zu zentrieren.

[Jonelmeier]

Vielen Dank für deine Hilfe!

Bei der Komponente handelt es sich um eine Progressbar in einem Style, welcher eine ganz bestimmte Höhe erfordert.

Gruß Jonelmeier