Du kannst mehrere Komponenten auf dem Formular-Designer markieren und denen alle die gleiche onClick-Prozedur geben. Die Variable Sender ist ein Verweis auf die Komponente auf welche geklickt wurde, die müsstest du nach TComponent (oder TWinControl?) casten, damit du die Positionen ändern kannst.
Beispiel:
- Gewünschte Komponenten auswählen
- Im Objektinspektor bei Ereignisse Doppelklick ins "onClick"-Feld
- Im Quell-Text-Editor dann beispielsweise so:
Delphi-Quellcode:
procedure TForm9.Button1Click(Sender: TObject);
var
meinControl: TWinControl;
begin
if (Sender is TWinControl) then
meinControl := (Sender as TWinControl)
else
Exit;
meinControl.Left := meinControl.Left - 2;
end;
Damit schiebst du beim Klick auf jede Komponente (Memo, Button, Edit, ...) das Teil zwei Pixel nach links. Wozu so etwas gut ist weiß ich zwar auch nicht, aber möglicherweise habe ich die Frage auch falsch verstanden...