Jeg leder efter en måde at få min DLL til at returnere når en Tbutton er blevet klikket. Jeg har forsøgt at lave en procedure og så gemme det i en variable når OnClick event bliver aktiveret. Men jeg indser at det åbenbart ikke er muligt. Er der overhovedet noget jeg kan gøre?
(Delphi 7 enterprise)
library Btns;
uses
SysUtils,
StdCtrls;
var MyButtons: array[0..1024] of TButton;
var MyButtonIndex: integer;
function ButtonInit(): double; stdcall;
begin
Result := 1;
end;
function ButtonCreate(wh, x, y: double; e, v :double): double; stdcall;
begin
MyButtons[MyButtonIndex] := TButton.Create(nil);
MyButtons[MyButtonIndex].ParentWindow := round(wh);
MyButtons[MyButtonIndex].Left := round(x);
MyButtons[MyButtonIndex].Top := round(y);
MyButtons[MyButtonIndex].Enabled := strtobool(inttostr(round(e)));
MyButtons[MyButtonIndex].Visible := strtobool(inttostr(round(v)));
MyButtonIndex := MyButtonIndex + 1;
Result := MyButtonIndex - 1;
end;
function ButtonSetText(a: double; s: pchar): double; stdcall;
begin
MyButtons[round(a)].Caption := s;
Result := 1;
end;
function ButtonDestroy(a: double): double; stdcall;
begin
MyButtons[round(a)].Destroy;
Result := 1;
end;
exports ButtonInit, ButtonCreate, ButtonSetText, ButtonDestroy;
begin
end.