Tut mir leid, aber das verstehe ich beim besten Willen nicht.
Ich zeige dir folgend sogar mal den Code, der ausgeführt wird beim Start, wenn du da was mit Internet findest, bist du gut!
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
//Systemweiten Hotkey registrieren
try
RegisterHotKey(Form1.Handle, ID, (MOD_Control or MOD_Alt), Ord('S'));
except end;
//Taskicon
Application.Icon := IconAUS.Picture.Icon;
Application.OnMinimize := Minimieren;
Application.OnRestore := Wiederherstellen;
NewTaskBar := RegisterWindowMessage('TaskbarCreated');
WindowProc := MyWindowProc;
AllesAnordnen; //(s.u.)
end;
{...}
procedure TForm1.AllesAnordnen;
begin
//Tab 1
Groupbox1.Left := (TabControl1.Width - Groupbox1.width) div 2;
Groupbox2.Left := (TabControl1.Width - Groupbox2.width) div 2;
BuOK.Left := (Groupbox1.width - BuOK.width) div 2;
BuReset.Left := (Groupbox2.width - BuReset.width) div 2;
LaStatusBox.Left := (Groupbox2.width - LaStatusBox.Width) div 2;
LaAktuelleZeiteingefuegt.Left := (Groupbox2.width - LaAktuelleZeiteingefuegt.Width) div 2;
CoStunde.Left := Groupbox1.Width div 8;
CoMinute.Left := Groupbox1.width - (CoMinute.width + CoStunde.Left);
LaStunde.Left := CoStunde.Left + (CoStunde.Width - LaStunde.width) div 2;
LaMinute.Left := CoMinute.Left + (CoMinute.width - LaMinute.width) div 2;
//Tab 2
LaStatusPanel.Left := (TabControl1.width - LaStatusPanel.Width) div 2;
end;
