Aktív témák

• #38 beeboy addikt KovacsUr #37

  2003-08-06 08:18:27 #38

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  beeboy

  addikt

  válasz KovacsUr #37 üzenetére

  akkor hogy kell érteni, ha közel a képernyő széle, mondjuk 20 pixel, akkor odarántja?

• #34 Edem senior tag KovacsUr #33

  2003-08-05 15:03:06 #34

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Edem

  senior tag

  válasz KovacsUr #33 üzenetére

  Hűűűha! Ekkora égést akkor láttam utoljára, amikor apám nyitott ablakkal állt be az autómosóba. :D

• #32 Edem senior tag KovacsUr #31

  2003-08-05 14:48:28 #32

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Edem

  senior tag

  válasz KovacsUr #31 üzenetére

  A www.windows.hu már megszűnt, nem tudtad? :) :P

• #30 Edem senior tag KovacsUr #28

  2003-08-05 14:44:33 #30

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Edem

  senior tag

  válasz KovacsUr #28 üzenetére

  Tudsz esetleg valami jó helyet, ahol ezek a message-ek össze vannak szedve?

• #29 Edem senior tag KovacsUr #28

  2003-08-05 14:38:50 #29

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Edem

  senior tag

  válasz KovacsUr #28 üzenetére

  off
  MODERÁTOR? Gartula! :)
  on
  
  OK, köszönöm, megvan. Bár csúnya módon kikopiztam egy másik forrásból (kicsit gagyi, mert pl. a 20 nem mint konstans szerepel, de ezt már bárki megcsinálja).
  type
  TForm1 = class(TForm)
  private
  procedure WMWindowPosChanging(var Msg : TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
  end;
  
  procedure TForm1.WMWindowPosChanging(var Msg : TWMWindowPosChanging);
  var
  Desktop : TRect;
  begin
  Inherited;
  
  if SystemParametersInfo(SPI_GETWORKAREA, 0, @Desktop, 0) <> True then
  begin
  Desktop.Left := 0;
  Desktop.Top := 0;
  Desktop.Right := GetSystemMetrics(SM_CXSCREEN);
  Desktop.Bottom := GetSystemMetrics(SM_CYSCREEN);
  end;
  
  if (Msg.WindowPos.x >= Desktop.Left - 20) and
  (Msg.WindowPos.x <= Desktop.Left + 20) then
  begin
  Msg.WindowPos.x := Desktop.Left;
  end;
  
  if (Msg.WindowPos.x + Width >= Desktop.Right - 20) and
  (Msg.WindowPos.x + Width <= Desktop.Right + 20) then
  begin
  Msg.WindowPos.x := Desktop.Right - Width;
  end;
  
  if (Msg.WindowPos.y >= Desktop.Top - 20) and
  (Msg.WindowPos.y <= Desktop.Top + 20) then
  begin
  Msg.WindowPos.y := Desktop.Top;
  end;
  
  if (Msg.WindowPos.y + Height >= Desktop.Bottom - 20) and
  (Msg.WindowPos.y + Height <= Desktop.Bottom + 20) then
  begin
  Msg.WindowPos.y := Desktop.Bottom - Height;
  end;
  end;
  
  

Aktív témák