Új hozzászólás Aktív témák

• #2078 Tomi_78 aktív tag

  Új Válasz 2023-01-24 16:51:06 #2078

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tomi_78

  aktív tag

  Na, próbálkoztam így:
  procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  epitmenu: TMainMenu;
  menupont: TMenuItem;
begin
if epitesgomb.aktkepe<>epitesgomb.kepe0 then
     begin
      epitesgomb.aktkepe:=epitesgomb.kepe0;
      epitmenu:=TMainMenu.Create(self);
      menupont:=TMenuItem.Create(epitmenu);
    menupont.Caption:='Felirat';
      epitmenu.items.Add(menupont);
     end;
end;
  és erre a képernyő tetején létrehoz egy, a képernyő szélességével megegyező szélességű fehér téglalapot, benne a felirattal...
  Hogyan lehet ezt a gomb koordinátáihoz igazítani és megfelelő szélességűre?

Új hozzászólás Aktív témák