取文本框内容发送到LED显示频上，如何取，求解！
procedure TfrmMain.BtnwenbenClick(Sender: TObject);var
W: Integer;
begin
GetDeviceParam(FParam);
FParam.notifyMode := NOTIFY_BLOCK;
FParam.wmHandle := 0;
FParam.wmMessage := 0;
W := MakeRoot(ROOT_PLAY, COLOR_MODE_DOUBLE);
AddChapter(w, 1000000, WAIT_CHILD);
AddRegion(W, 0, 0, 64, 32, 0);
AddLeaf(W, 10000, WAIT_CHILD);
AddText(W, 0, 0, 64, 16, 1, 0,'取文本框内容', '宋体', 12, RGB(255,0,0), WFS_BOLD, 0, 0, 1, 0, 1, 0, 0, 0, 5000);-------取得文本框输入内容，点击按钮发送。-----
Caption := '正在执行命令或者发送数据...';
Refresh;
LED_Compress(w);
Parse2(LED_SendToScreen(@FParam, w));
end;
end. VB是这样取的文本发送的。。Delphi 没接触过。。高手快来啊。。。
Private Sub Command1_Click()
Dim k As Long
GetDeviceParam
FParam.notifyMode = NOTIFY_EVENT
FParam.wmHandle = Me.hWnd
FParam.wmMessage = WM_LED_NOTIFY
Dim aa As String
aa = Now
'这个操作中，ChapterIndex=0，RegionIndex=0，只更新控制卡内第1个节目中的第1个分区
'如果ChapterIndex=1，RegionIndex=2，只更新控制卡内第2个节目中的第3个分区
'以此类推
k = MakeRegion(ROOT_PLAY_REGION, ACTMODE_REPLACE, 0, 0, SCREEN_COLOR, 0, 0, 192, 16, 0)
AddLeaf k, 100000, WAIT_CHILD
AddText k, 0, 0, 192, 16, 1, 0, Text1.Text, "宋体", 12, RGB(255, 255, 0), WFS_BOLD, 0, 0, 2, 5, 2, 5, 0, 0, 1000
Parse (LED_SendToScreen(FParam, k))
End Sub
页:
[1]