vis og skjul

brug en boolen værdi:

var
Fb:boolean;
begin
if fb then
begin
showmessage('1');
fb := false;
end else
begin
showmessage('2');
fb := true;
end;
end;

Lav en privat variabel f.eks. FVis : boolean; hvis FVis = true så skal captio være skjul og omvendt
her er et eks:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FVis then
  begin
    FVis := false;
    Button1.Caption := 'Vis';
  end
  else
  begin
    FVis := true;
    Button1.Caption := 'Skjul';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := '&Vis';
  FVis := false;
end;

end.

Jeg tror han mener med hensyn til events...

private
  procedure MinEneKnapProc(Sender: TObject);
  procedure MinAndenKnapProc(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := MinEneKnapProc;
end;

procedure TForm1.MinEneKnapProc(Sender: TObject);
begin
  ShowMessage('Det her er det ene tryk!');
  Button1.Caption := 'To';
  Button1.OnClick := MinAndenKnapProc;
end;

procedure TForm1.MinAndenKnapProc(Sender: TObject);
begin
  ShowMessage('Det her er det andet tryk!');
  Button1.Caption := 'Et';
  Button1.OnClick := MinEneKnapProc;
end;

//hermandsen

Med denne enkle kode viser eller skjuler du et billede med klik på samme knap (Hvis det er det du mener?)

procedure TForm1.Button1Click(Sender: TObject);
begin
if Image1.Visible then Image1.Hide else Image1.show;
end;


// eht

Man kan jo blive ved, men det er stadig samme princip som det bygger på, og det var jo bare det han skulle se!

Var fb:boolean;
Begin
Fb := not fb;
If fb then
  Showmessage('1') else
  Showmessage('2');
End;

>>no_doubt
Lidt respons ville være godt... Hvad vil du egentlig?!?

>>no_doubt
Tja.... hvad nu?????????

I deler, jeg fatter brik GG