Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Boombuler,
7. Mär 2006
Ups :oops:
Ich wusste ich hab was vergessen ;)
Greetz
Boombuler
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Boombuler,
7. Mär 2006
Wie gesagt guck dir das mit dem Hi und Lo Word an!
Dabei teilst du einfach deinen Tag in 2 Teile...
Function GenerateTag(SprachCode, OrginalTag:Word):Integer;
begin
result := (SprachCode shl 16) + OrginalTag;
end;
function GetOrginalTag(aComponent:TComponent):Integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Boombuler,
7. Mär 2006
Deine Aktion mit den Prozeduren könntest du auch so abfragen:
procedure TForm1.MainMenuTestClick(Sender: TObject);
begin
If (Sender as TMenuItem) = MenuEintrag1 then
begin
// Do Anything
end
else If (Sender as TMenuItem) = MenuEintrag2 then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Boombuler,
7. Mär 2006
Alternativ könntest du im Tag den Tag zweitteilen wenn du nich die kompletten 4 Byte brauchst...
Ich denke da an sowas wie
HighWord = Sprache
LowWord = Das was du vorhast
so könntest du die Zahlen 3 und 21 einfach so Umwandeln:
3 => 00000000 00000011
21 => 00000000 00010101
3 + 21 => 00000000 00000011 00000000 00010101 => 196629