Új hozzászólás Aktív témák

• #2010 vz12 tag mekker #2009

  Új Válasz 2015-07-11 23:37:27 #2010

  Új hozzászólás

  Ö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

  

  vz12

  tag

  válasz mekker #2009 üzenetére

  Szívesen, nincs mit.

  D5-ben nem volt még ilyen MainFormOnTaskbar property, úgy látom hogy ez a D2007-ben jelent meg.
  Az Application.Handle problémára egy Lazarus oldalon ilyen FindWindow megoldást adtak, gondolom hogy valami ilyesmit csináltál te is.

  A lényeg, hogy összejött a megoldás.

• #2008 vz12 tag mekker #2007

  Új Válasz 2015-07-10 21:58:17 #2008

  Új hozzászólás

  Ö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

  

  vz12

  tag

  válasz mekker #2007 üzenetére

  Nekem is volt ilyen problémám régebben, előkerestem Neked a kódomból az én megoldásomat.
  Sosem dolgoztam Lazarussal, ez konkrétan Delphi5, és tökéletesen működik:

  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); // remove button from taskbar

  Ez valami Win API hívás, gondolom hogy menni fog Lazarusban is.
  Nem hiszem hogy magamtól találtam ki, most az előbb Google barátommal pl. ilyen megoldást találtam elég gyorsan, ami nagyon hasonlít az én kódomra.

  Remélem segítettem.

• #1996 zka67 őstag mekker #1995

  Új Válasz 2014-08-30 00:57:05 #1996

  Új hozzászólás

  Ö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

  

  zka67

  őstag

  válasz mekker #1995 üzenetére

  Szia, ez ugyan a Delphi fórum, de talán:

  uses
  SynaCode;
  ..
  begin
  s := EncodeUrl( str );
  //
  s := DecodeUrl( str );
  end;

• #1994 zka67 őstag mekker #1993

  Új Válasz 2014-08-29 22:15:21 #1994

  Új hozzászólás

  Ö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

  

  zka67

  őstag

  válasz mekker #1993 üzenetére

  Szia, így:

  Uses HTTPApp;
  
  procedure TForm1.Button1Click(Sender: TObject);
  const S : string = 'Árvíztűrő tükörfúrógép';
  begin
  Memo1.Lines.Add( S );
  Memo1.Lines.Add( HTTPEncode( UTF8Encode(S) ) );
  end;

  A példa kimenete:

  Árvíztűrő tükörfúrógép
  %C3%81rv%C3%ADzt%C5%B1r%C5%91+t%C3%BCk%C3%B6rf%C3%BAr%C3%B3g%C3%A9p

Új hozzászólás Aktív témák