Ny form som ikke kan poppe op ved 2 klik...

Er det ikke fordi du creater din form dynamisk ?

Ellers er det bare form2.show;

Stoney

jo jo se lig her

  x := 1;
  First;
  while not Eof do
  begin
    MinKnap[x]:=TButton.Create(Form1);
    with MinKnap[x] do
    begin
      parent:=self;
      Caption:= FieldByName(\'ven_id\').AsString;
      Width:=60;
      Height:=20;
      Left:=30;
      Top := 20+x*40;
      Visible:=True;
    end;
    Next;
    inc(x);
  end;

sådan den her løkke laver en masse knapper være knap skal have sin ejen vindu

det skal helst laves i en fucntion

Så laver du bare en OnClick event du tilknytter i din løkke

Form1.MyOnClick( Sender : TObject );
begin
  if Caption = \'What ever\' then
  with TForm2.Create(Self) do
  Show;
end;

    with MinKnap[x] do
    begin
      parent:=self;
      Caption:= FieldByName(\'ven_id\').AsString;
      OnClick := MyOnclick;
      Width:=60;
      Height:=20;
      Left:=30;
      Top := 20+x*40;
      Visible:=True;
    end;

Ups !

Form1.MyOnClick( Sender : TObject );
begin
  if TButton(Sender).Caption = \'What ever\' then
  with TForm2.Create(Self) do
  Show;
end;

martin >> Ingen heste ? Og hvad var det for et hus der var brændt i Polensgade ?

Jens B

Det ved jeg sku ikke, jeg lå brak i weekenden.

det skulle være den 31. Der skulle have været brand i Polensgade, hvor der skulle være ild i en heel opgang. Jeg kan sq. ikke se noget ...

Nå nu må jeg hellere stoppe inden teddy bliver (?) trært af mig !

Jens B

virker ikke

TfrmX = class(TForm)
...
bla bla
....
end;

TfrmY = class(TForm)
....
  MyXForm: TfrmX;
  procedure onShowFormClick(sender: TObject);
  procedure onCloseFormClick(sender: TObject);
....
end;

procedure TfrmY.onShowFormClick(sender: TObject);
begin
  if not Assigned(MyXForm) then
    MyXForm := TfrmX.Create(Self)
  else
    MyXForm.Show;
end;

procedure TfrmY.onCloseFormClick(sender: TObject);
begin
  if Assigned(MyXForm) then
  begin
    MyXFrom.Release; // brug altid release ved forme
    MyXForm := nil;
  end; 
end;

******** eller en anden metode

procedure onSomeClick(sender: TObject);
var i: Integer;
begin
  for i := 0 to Screen.FormCount-1 do
    if (Screen.Forms[i] is TfrmX) then
      (Screen.Forms[i] as TfrmX).Show;
end;

nej nej i forstår ikke hvad jeg mener....

Jeg har en form2 og når man klikker på en knap som bliver lavet i en while... og hvis der f.eks står Teddy på knappen skal den hente Teddy fra en datasource hvor user_name er Teddy også skal den sende hele rækken hvor den fandt teddy op i formen... og hvis jeg efter har klikket teddy klikker Brian... så skal den poppe et nyt vindu men brians oplysninger.... ok ??!

har lavet det på en anden måde