Tut mir leid, wenn ich nicht allzuviel Zeit investieren kann (berufstätig ...), aber als Starthilfe/Diskussionsgrundlage:
Delphi-Quellcode:
type
TFormPosition = record
... x, y, Breite, Höhe, Status (maximiert, normal, minimiert) etc ...
end;
TRutschForm = class(TCustomForm)
private
FCurrentPosition: TFormPosition;
public
procedure ZeigDich;
procedure VersteckDich;
procedure ZerstoerDich;
procedure RutschVonNach(AVon: TFormPosition; ANach: TFormPosition);
property MessageText: ...
end;
TRutschFormList = {delphiversionsabhängig} TList<TRutschForm>
... gewünschte Verhaltensweisen ...
end;