delphi 单个按钮如何实现修改与保存的功能,就是按一下按钮修改数据,再按一下为保存数据
3个回答
展开全部
在form里建一个counter,用户每按一次按钮就加1 (counter := counter+1;),在按键的事件里,每当counter=1时执行修改,counter =2时执行保存。比如:
procedure TForm1.button1click(sender: object);
begin
counter := counter+1;
if counter = 1 then begin
// 修改数据
end
else begin
// 保存数据
end;
end;
procedure TForm1.button1click(sender: object);
begin
counter := counter+1;
if counter = 1 then begin
// 修改数据
end
else begin
// 保存数据
end;
end;
展开全部
通过Button的caption属性变换来实现
procedure TForm1.button1click(sender: object);
begin
if(button1.caption='保存')
begin
button1.caption='修改';
//做保存的工作
end
else if(button1.caption='修改')
button1.caption='保存';
//做修改的工作
begin
end;
end;
procedure TForm1.button1click(sender: object);
begin
if(button1.caption='保存')
begin
button1.caption='修改';
//做保存的工作
end
else if(button1.caption='修改')
button1.caption='保存';
//做修改的工作
begin
end;
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
二楼的思路很不错
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询