Einzelnen Beitrag anzeigen

Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: Infofenster im Systembereich erzeugen, einblenden und ausblenden

  Alt 24. Jul 2018, 09:24
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;
Nr.1 Delphi-Tool: [F7]
  Mit Zitat antworten Zitat