ad c)
procedure TFormatka.KomKlik(Sender: TObject);
var
i: integer;
begin
for i:=0 to Length(tab_panel_dzien)-1 do //tab_panel_dzien dynamiczna, globalna tablica TPanel
begin
if tab_panel_dzien[i].Name='Kom'+Wybrana_Komorka then //wybrana_komorka to zmienna globalna przekazująca id klikniętej komorki
begin
ActiveControl:=tab_panel_dzien[i];
break;
end;
end;
end;
ad b)
procedure TFormatka.KomOnEnter(Sender: TObject);
var
i: integer;
begin
(Sender as TPanel).Font.Color:=clSkyBlue;
for i:=0 to Length(tab_panel_dzien)-1 do
begin
if tab_panel_dzien[i].Name='Kom'+Wybrana_Komorka then
begin
KomorkaMouseMove(tab_panel_dzien[i],[ssAlt],Mouse.CursorPos.X,Mouse.CursorPos.Y); //KomorkaMouseMove obslugije zdarzenie OnMouseMove dynamicznych komponentow. W zaleznosci od najechanego komponentu pokazuje informacje o nim wzięte z bazy- ale to juz innna bajka
break;
end;
end;
end;
ad a)
Skrót przypisany jest odgórnie do TMenuItem
poprzez ShortCut. Użycie tego skrótu ma być jednoznaczne z kliknięciem na tem MenuItem. Tak jak pisałem błąd wywalany jest jeszcze zanim zostanie rozpoczęte wykonywanie OnClick tego Item'a.
wszystko pięknie ładnie, opowiadanie na 5
Dzięki, starałem się :d