naja, eigentlcih is es kein großes problem
Delphi-Quellcode:
var
markiert: TShape;
defcolor,markiertcolor: TColor;
procedure ShapeClick(Sender: TObject);
begin
if Assigned(markiert) then
markiert.Color := defcolor;
markiert := Sender as TShape;
markiert.Color := markiertcolor;
end;
du musst jetzt nur markiert auf nil initialisieren und allen deinen shapes diese prozedur im OnClick zuweisen.
Selbstverständlich ist das mit der Farbe nur eine Möglcihkeit, du kannst auch die Form des shape ändern, seinen borderstyle, (wenns einen hat
) einen rahmen rundrum ziehen (da musst du allerdings dann selber was zeichnen, stichwort OnPaint / Paint) etc.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1