烦就一个字......
解决方案 »
- 关于一个字符串的问题 在线等
- DBGrid 能不能更改某一行数据的颜色
- 招牌中高级DELPHI程序员做项目,地点哈尔滨,高薪
- dbgrid 輸入數據保存時不成功
- realplayer控件的问题
- 请问在DBGRID空件里怎么实现按照某个字段的排序显示?
- 急!怎样在网页上嵌入windows程序
- 读取文本文件的数据问题
- 有感Delphi新人基础太差,特开个站写写基础教程
- 高分相送--------------------------高人帮看这个idSMTP 发送是否有问题?
- 关于使用Socket传输大文件的时候,怎样保证数据无误的传输?
- 在FastReport中如何在打印报表的时候自动打印序号,序号用于表示打印的记录数
begin
if csLoading in ComponentState then
Result := FItemIndex
else
Result := SendMessage(Handle, CB_GETCURSEL, 0, 0);
end;procedure TCustomCombo.SetItemIndex(const Value: Integer);
begin
if csLoading in ComponentState then
FItemIndex := Value
else
if GetItemIndex <> Value then
SendMessage(Handle, CB_SETCURSEL, Value, 0);
end;function TCustomCombo.GetSelStart: Integer;
begin
SendMessage(Handle, CB_GETEDITSEL, Longint(@Result), 0);
end;procedure TCustomCombo.SetSelStart(Value: Integer);
var
Selection: TSelection;
begin
Selection.StartPos := Value;
Selection.EndPos := Value;
SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(Selection.StartPos,
Selection.EndPos));
end;
没有过这种感觉,一直很热爱编程,从10岁
真是厉害
就跟其它工作差不多.
做多了你就会烦.
烦了再做.
这就是我们男人---喜新厌旧.(女人我不知道)
写程序有意思的原因就是: 你的 代码 永远 有改进的空间;
你的 设计 永远 有更好的解决方案;
你的 程序 永远 存在有Bug;
所以你的程序永远都是新的。
当一个困扰了你n天的bug.
突然你吃饭时想到了,你会"呀"的一声.
别人会用疑惑的眼光看着你.(程序员除外)