Dalo by sa to i takto
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Randomize;
memo1.Left:=1+Random(form1.Width-memo1.Width-1);
end;
Predpokladam ze chces nieco ako Label ale s viac riadkami?Dalo by sa to i takto
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Randomize;
memo1.Left:=1+Random(form1.Width-memo1.Width-1);
end;
Predpokladam ze chces nieco ako Label ale s viac riadkami?