Srodne teme

15.03.2004. Skloniti fokus sa forme, C#, i ne vraćati ga ...
18.03.2004. Izvorni kod za Shut down
05.04.2004. SendKeys naredba, pomoć!
27.08.2004. Login Script + Registry

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

SendKeys and TMenuItem

[es] :: Pascal / Delphi / Kylix :: SendKeys and TMenuItem	[ Pregleda: 505 \| Odgovora: 3 ]	Postavi temu Odgovori

Autor

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.as54ze.bih.net.ba.

Profil

SendKeys and TMenuItem

^{20.11.2004. u 15:55}

1. Kako poslati prozoru sa titlom "Hey" kombinaciju tipki Ctrl+Alt+D?
2. Postoji neki PopupMenu.
Imam funkcije Add_To_Popup i Get_Click
U funkciji Add_To_Popup dodajem TMenuItem u PopupMenu. Sad mi treba da na klik na taj TMenuItem, koji dadajem, izvši se Get_Click funkcija.
Thanks

^{20.11.2004. u 15:55}

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 615
195.246.3.*

Profil

Re: SendKeys and TMenuItem

^{20.11.2004. u 19:56}

1. Da li bi ti radilo posao nesto poput:

Code:

procedure Button1Click(Sender: TObject);
var
h: HWND;
begin
h := FindWindow(nil, 'Hey');
// mozda bi ti radila posao i WM_CHAR, ili WM_KEYDOWN
SendMessage(h, WM_HOTKEY, ?, ?); // pogledaj u win sdk za parametre
end;

2. Za popup menu:

Code:

procedure TForm1.MyClick(sender: TObject);
begin
  // sta god vec radis...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  mi: TMenuItem;
begin
  mi := TMenuItem.Create(MyPopupMenu);
  mi.Caption := 'MyItem';
  mi.OnClick := MyClick;
  MyPopupMenu.Items.Add(mi);
end;

ss.

When something is hard to do, then it's not worth doing.

^{20.11.2004. u 19:56}

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.as54.ze.bih.net.ba.

Profil

Re: SendKeys and TMenuItem

^{22.11.2004. u 18:37}

Prvo mi ne radi, ali nema veze jer sam to riješio na drugi način (keyb_event).
Drugo mi radi sasvim dobro.
Hvala!

^{22.11.2004. u 18:37}

borovac
127.0.0.1

Član broj: 29278
Poruke: 220
*.as54.ze.bih.net.ba.

Profil

Re: SendKeys and TMenuItem

^{28.11.2004. u 20:29}

Kako dodati transparentnu sliku (Bitmap) u ImageList.
Dodajem tu ImageList kao ikonu u Tray i štimam interval (vrijeme između dvije slike).
Na NT sistemu samo stavim ImageList.Masked=true i sve radi, međutim na 9x sistemu mi pokazuje sivkastu podlogu za sličice????

^{28.11.2004. u 20:29}

[es] :: Pascal / Delphi / Kylix :: SendKeys and TMenuItem

[ Pregleda: 505 | Odgovora: 3 ]

Srodne teme

15.03.2004. Skloniti fokus sa forme, C#, i ne vraćati ga ...
18.03.2004. Izvorni kod za Shut down
05.04.2004. SendKeys naredba, pomoć!
27.08.2004. Login Script + Registry

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.