Link i program

Og, btw. hvordan laver man noget onMouseOVer, fx hvis man skal ændre en knap til at have en anden tekst ved mouseover?

tilføj \"shellapi\" til uses



Shellexecute(Handle, \'OPEN\', PChar(\'www.dinhjemmeside.dk\'), nil, nil, SW_SHOW);


Shellexecute(Handle, \'OPEN\', PChar(\'mailto:navn@firma.dk\'), nil, nil, SW_SHOW);

Stoney

siger mig ikke så meget, kan du forklare lidt nærmere hvordan jeg \"tilføjer shellapi til uses\" ?

unit Unit1;

interface

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


Stoney

undefined identifier siger den!

Prøv at sammenligne din unit med nedenstående.
Det enester der er, er en knap (button1) der starter din default browser på den angivne side.
-----------------------------------------------


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;


    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}





procedure TForm1.Button1Click(Sender: TObject);
begin
Shellexecute(Handle, \'OPEN\', PChar(\'http://www.acra.dk\'), nil, nil, SW_SHOW);
end;

end.

mig der havde kvajet mig, den var sprunget til unit2

hvad med mit andet spm?

Enten skal du finde en component der kan gøre det eller du kan bruge en label istedet.

Nedenstående er med en label.

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Caption := \'Nu er musen over\';
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Caption := \'Nu er musen IKKE over\';
end;

Stoney

//jeg går ud fra at knappens caption er button1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
button1.Caption:=\'det er en test\';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
button1.Caption:=\'button1\';
end;

end.

løsning på spørgsmål 2.
udskiftning af tekst ved mouseover.

stone>> hvad mener du ?
Button\'s har ikke nogen mouseover proberties

Stoney

stoney:

der er da ingen grund til at bruge en label,
det vil være overkill.

brug button1 event: onmousemove
brug Form1 event: onmousemove// når du forlader
button1

næ! det har de ikke men det virker, som vist for oven.

stone >>  Du har ret. Sorry, så lærte jeg også lidt  dag.

Stoney

det jeg skal er at jeg vil gøre så mine toolbars-knapper viser en tekst i min status bar når der er mouseover...

acra.dk:
så skal du bare bruge mit eksempel.

jeg kan ikek få det til at virke

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

Statusbar1.SimpleText := \'Musen er IKKE over\';

end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

Statusbar1.SimpleText := \'Musen er over\';
end;

sæt din statusbar til autohint:=true
så vil alles componenter\'s hint blive vist i
statusbar.
eller prøv dette eksempel:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
statusbar1.Panels[0].Text:= button1.Caption;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
statusbar1.Panels[0].Text:=\'\';
end;

jeg går ud fra du har oprettet et statuspanel[0]i
din statusbar.
her vil teksten blive vist, hvis du hellere vil have det vist i et andet statuspanel, opretter du bare et til, og skifter [0] ud med [1]

lækker stil der...

er det kun stoney der vil have point?

jeg vil da gerne :-)

kunne du bruge det?