Placer i midten af program

uha størrelsen på boxen?

/ZIRON

Ziron> Lige bestemt

hmmm kigger lige :(

/ZIRON

hmm måske denne kan bruges til noget, det gik stærkt med at finde den, skal nemlig ud af døren nu:

http://www.cublea.com/delphi/mbxhack/

(håber slasne sidder rigtigt)

/ZIRON

Hmmmmmmmm, er jeg den eneste som har det problem

hvad med en messagebox, der må man da kunne lave noget, ellers prøver jeg at kigge når jeg kommer jeg i aften/nat...

/ZIRON

Troede nogen lige havde de rigtige parametre, måske jeg istedet skal lave min egen, som jeg kender målene på, lablen med beskeden er jo nem at placere i midten af den

det kunne man jo også gøre, men der må da være ne måde at gøre det på...

/ZIRON

ShowMessagePos('Connect to controller', ((form1.Left) + (form1.ClientWidth div 2)),((form1.top) + (form1.ClientHeight div 2)));

Dette er vist det nærmeste du kommer.
Det sætter den nogen lunde i midten af formen, i hvert fald aldrig uden for. Problemet er at showmessagepos er øverste venstre hjørne i dialogboxen, men det ved du selvfølgelig.

Stoney

hmmm stoney jeg tror du skal i seng, hvad står der her:

morten skrev:

ShowMessagePos('Connect to controller', ((Width div 2) + Left),((Height div 2) + Top));

og her

du skrev:

ShowMessagePos('Connect to controller', ((form1.Left) + (form1.ClientWidth div 2)),((form1.top) + (form1.ClientHeight div 2)));

det ligner noget af det samme iik, jeg synes du skal gå i seng eller drikke noget mere kaffe :)

ziron>>

Det er ikke det samme.
Prøv begge eksempler, men flyt formen inden du hitter button1

BTW: Der er også coffein i cola

:-)

Stoney

okay stoney undskyld at den kommer de 2 pixels tætter på som ens border er, UNDSKYLD :)

/ZIRON

Nej det er ikke det

Prøv at trække formen helt ud til højre så du kun lige kan se 1 cm af den.
I mit eksempel bliver boxen placeret "MIDT" i formen, det vil sige du ikke
kan se den (hvilket i øvrigt ikke  er hensigtsmæssigt, men morten ville have den midt i formen).
Men Mortens eks. bliver placeret uden for formen.

Stoney

hmmm det kan jeg nu ellers ikke lige se men okay sådan er det jo sådan bare, ingen af dem virker. vi mp finde på noget andet...

ZIRON

sorry, du har ret.
Jeg sku ikke hvad jeg har lavet da jeg lå og legede med det.
Jeg må i seng nu.

En lille snydeløsning:

Da Mortens text fomentlig ikke ændrer sig kan han vil bare

ShowMessagePos('Connect to controller', ((Width div 2) + Left - 70),((Height div 2) + Top - 60));


+- et par stykker måske

Stoney

ja det er jo rigtig nok, mennn lad os nu se om nogle af de andre hoveder ikke kan gøre os lidt klogere?

nat nat...

/ZIRON

så morten nu synes jeg selv at det ligner noget det her, prøv selv lige at kigge. jeg har skrevet en ny funktion til det:

function ShowMessagePos_center_i_midt(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; X, Y: Integer): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      if X >= 0 then Left := X - (Width div 2);
      if Y >= 0 then Top := Y - (Height div 2);
      if (Y < 0) and (X < 0) then Position := poScreenCenter;
      Result := ShowModal;
    finally
      Free;
    end;
end;

og den kaldes så med:

ShowMessagePos_Center_i_midt('Her er den så, UUUUUUUUUU', mtWarning, [mbYes, mbNo, mbRetry], ((form1.Left) + (form1.Width div 2)),((form1.top) + (form1.Height div 2)));

Håber du kan bruge det...

/ZIRON

hmmm lidt optimeret:

du kan jo selv lige lege med det og hvordan du vil have den til aat virke..

function ShowMessagePos_center_i_midt(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; X, Y: Integer): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      Position := poMainFormCenter;
      Result := ShowModal;
    finally
      Free;
    end;
end;

/ZIRON

Tak for hjælpen

jamen det var da så lidt...

/ZIRON