Problem med flere Tpanels og en menu på hver.

if (Sender as TPanel).Name = 'Panel2' then ShowMessage('Du har trykket på Panel2');

Det virker ikke.. jeg får en 'Invalid Class Typecast'


Denne procedure vælger jeg fra et punkt i en popupmenu :
...
procedure TForm1.Rediger1Click(Sender: TObject);
begin
  if TForm1(Sender as TPanel).Name = 'Panel2' then
    label1.Caption := '2';
...
Jeg vil bruge det til at rediger noget tekst som står et andet sted på skærmen.

Det er rigtig det var mig der lige var for hurtig, den sender du får med er en TPopupMenu, du kan evt. bruge tag på din popupmenu eller

if TForm1(Sender as TPopupmenu).Name = 'Popupmenu2' then
    label1.Caption := '2';

har du så 60 popupmenu'er eller hvad, og hvad skal du bruge alle de panels til, det lyder som om der måske var en smartere måde

Nej, jeg har ikke 60 popup'er men jeg har 60 panels (hjemmelavet) som er flytbare, de skal bruges til en elektronisk opslagstavle.
Man kan sige at alle panels er et stykke papir med en magnet bag på, på Caption af hver panel vil jeg så skrive en besked, jeg vil så ved at højreklikke på en 'magnet' få en menu op og der vil kunne vælge f.eks. 'Slet oplysninger' 'skriv oplysninger'.
Problemet er så at når jeg vælger 'skriv oplysning' så vil jeg skrive til caption på den panel jeg højreklikker og vælger i menuen på....

Hvad med at putte din popupmenu med på dit hjemmelavede panel, så kører det jo sammen og så ved du hvilken panel det er, eller skal du kører FindControl(x,y) tror jeg nok den hedder, den kan fortælle hvilken control der er under musen

Fik du dette til at virke http://www.eksperten.dk/spm/527549

Hvis det er et standard Tpanel og standard Tpopupmenu
kan jeg maile dig et eks.

Stoney

Hej Stoney

Ups... undskyld, jeg har fulstændig glemt at give point....
De er tildelt nu...

du kan evt. også slå autopopup fra på din menu, og lave en onMouseUp event på dit panel, så ved du hvilket panel det er for så er sender lig det panel, så kan du selv poppe menuen op med popupmenu1.popup(Mouse.x,mouse.y);

Til stoney

Det eksempel du nævner, kan du ikke vis et udsnit her???

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    PopupMenu1: TPopupMenu;
    Slet1: TMenuItem;
    Skriv1: TMenuItem;
    procedure Slet1Click(Sender: TObject);
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Skriv1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  compnavn : String;

implementation

{$R *.dfm}

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
compnavn := ((sender as Tcomponent).Name);
end;

procedure TForm1.Slet1Click(Sender: TObject);
begin
showmessage('Indhold i ' + compnavn + ' slettes');
end;



procedure TForm1.Skriv1Click(Sender: TObject);
begin
showmessage('Nu kan du skrive i ' + compnavn);
end;

end.

Panel2MouseMove assigner du til alle de panels det måtte gælde

Stoney

Hej Stoney

DET VIRKE..... tak skal du have.

Øhhh, hvordan giver man dig point??, det er kun Martin der står der...
Jeg vil nok fordele mellem din og martin.

:-)

Stoney