Pointerziel sichern oder wie? hä?

[xineohp]

moin,

da Delphi bei Klassen/Objekten eh immer mit Zeigern arbeitet (und auch nur diese kopiert) kannst du die eigentlich die ganzen @s sparen.
Probiers einfach mal mit:

Delphi-Quellcode:

procedure TForm1.SelectField(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if PClickedField <> NIL then
    PClickedField.Pen.Style := psClear;

  PClickedField := Sender;
  PClickedField.Pen.Style := psSolid;
end;