Skyd en form ud fra kanten

fandt selv en anden løsning

Kan du ikke skrive den?

jeg fandt på noget andet end det med musen.. jeg bruger genvejstaster til at få formen frem og skjule den igen . I dette tilfælde CTRL+ALT+Q og CTRL+ALT+A.

Du kan finde info om hvordan man laver genvejstaster her: http://delphi.about.com/cs/adptips2001/a/bltip0601_3.htm

og for at "rulle" formen ud brugte jeg bare dette:

// Folder formen ud
procedure FoldUd;
begin
  while MainForm.Height<180 do
    MainForm.Height := MainForm.Height+2;

  if MainForm.Height>=180 then
    Application.BringToFront;
end;

// Folder formen ind
procedure FoldInd;
begin
  while MainForm.Height>1 do
    MainForm.Height := MainForm.Height-2;
end;

Mange tak