Avatar billede disken4 Nybegynder
09. januar 2002 - 21:31 Der er 13 kommentarer

Skjule formen

hvordan skjuler jeg en min form såden den over hoved ikke kan ses og man skal også skulle kunne trykke på noget neden under.
Avatar billede cen Nybegynder
09. januar 2002 - 21:35 #1
<FORM INPUT=\"hidden\">
Avatar billede cen Nybegynder
09. januar 2002 - 21:36 #2
eller hva ?
Avatar billede cen Nybegynder
09. januar 2002 - 21:40 #3
undskyld den skal selfølgelig se sådan ud:
<INPUT TYPE=\"hidden\" NAME=\"navn\" VALUE=\"Hej\">
Avatar billede cen Nybegynder
09. januar 2002 - 21:42 #4
F****......
UNDSKYLD, havde ikke set kategorien.

- CEN
Avatar billede morten_s Nybegynder
09. januar 2002 - 22:10 #5

Prøv at downloade componenten her, den kan ligge din form ned i traybaren ved siden af uret

http://www3.ewebcity.com/troels/download/cooltray.zip
Avatar billede morten_s Nybegynder
09. januar 2002 - 22:12 #6
I exe filen som ligger med i zipen kan du se alle de mange muligheder
og den er nem at bruge
Avatar billede hreiff Nybegynder
10. januar 2002 - 08:05 #7
Form1.Hide
Avatar billede klix Nybegynder
10. januar 2002 - 08:42 #8
I Designtime sæt Formens property \"Visible\" til \"False\".
Avatar billede stoney Nybegynder
10. januar 2002 - 09:46 #9
Hvis din form i forvejen er gennemsigtig
kan du bare minimere formen, så den ikke er \"i vejen\" for museklik

Stoney
Avatar billede cyberlsn Nybegynder
10. januar 2002 - 18:25 #10
Sådan her:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FullRgn, ClientRgn, CtlRgn : Thandle;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  AControl : TControl;
  A, Margin, X, Y, CtlX, CtlY : Integer;
begin
  Margin := ( Width - ClientWidth ) div 2;

  FullRgn := CreateRectRgn(0, 0, Width, Height);

  X := Margin;
  Y := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight );

  CombineRgn( FullRgn, FullRgn, ClientRgn, RGN_DIFF );

  for A := 0 to ControlCount - 1 do begin
    AControl := Controls[A];
    if ( AControl is TWinControl ) or ( AControl is TGraphicControl )
        then with AControl do begin
      if Visible then begin
        CtlX := X + Left;
        CtlY := Y + Top;
        CtlRgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY + Height );
        CombineRgn( FullRgn, FullRgn, CtlRgn, RGN_OR );
      end;
    end;
  end;
    SetWindowRgn(Handle, FullRgn, TRUE);
end;

end.
Avatar billede jisch Mester
14. januar 2002 - 14:14 #11
Hvis du kun har een form der skal gemmes på den måde kan du eventuel anvende: Application.Minimize.

Jisch
Avatar billede kipolaks Nybegynder
27. januar 2002 - 18:58 #12
Application.ShowMainForm := False;

//CrAzy ProGramMer
Avatar billede dl Nybegynder
22. april 2002 - 11:58 #13
Har du prøvet-->
form1.visible = False;

//dl
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

De Nationale Geologiske Undersøgelser for Danmark og Grønland (GEUS)

IT-systemadministrator søges til GEUS

Udviklings- og Forenklingsstyrelsen

Studentermedhjælper til Toldområdet i stor IT-styrelse